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ABSTBACT 


This  thesis  completed  implementation  of  an  amphibious 
ship-to-shore  simulation  (called  SHIPSHOR)  for  use  on  an  IBri 
Personnel  Computer.  The  investigation  included  a  descrip- 
tion cf  the  physical  system  being  modelled,  an  explanation 
of  the  logic  used  by  the  model,  a  validation  section,  sensi- 
tivity   analysis,    and   a   thorough    documentation    section. 

The  Eodel  is  functioning  and  producing  credible  output 
as  exhibited  in  the  validation  chapter.  It  is  capable  of 
operating  under  a  variety  of  conditions  to  produce  results 
which  illustrate  the  build-up  ashore  of  personnel  and  fire- 
power versus  time.  Its  main  application,  as  suggested 
within,  is  for  use  as  a  decision  aid  to  the  commander  in 
operational  planning  and  to  the  staff  officer  in  procurement 
planning . 

To  he  effective,  SHIPSHOE  needs  continuous  validation 
and  modification.  Model  building  is  an  evolutionary  process 
which  should  not  cease  until  the  usefulness  of  the  model  has 
expired. 
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I.  BACKGROOND 

A.   TEE  EEOEIEM 

"Hew  would  increasing  the  number  of  ampihLbious  ships 
impact  en  an  amphibious  landing?",  "what  happens  if 
...?", "suppose  we  cnly  had  x  number  of  troop  helicop- 
ters...?". One  way  to  answer  questions  like  these  is  to 
actually  conduct  landings  under  the  different  conditions 
desired.  However,  the  cost  of  a  single  landing  exercise  is 
enormous,  and  to  run  many  operations  would  quickly  devour 
the  entire  defense  budget.  The  next  best  option  for 
obtaining  answers  to  the  problem  above  is  the  use  of  cna  of 
the  many  tools  available  in  a  large  class  of  decision 
support  aids.  That  instrument,  which  has  become  extremely 
important  when  used  properly,  is  the  computer  simulation. 

Before  continuing,  it  is  necessary  to  clarify  some 
terms,  which  have  ever  time,  acquired  different  connota- 
tions. A  iiodel  is  a  representation  of  an  entity  or  situ- 
ation by  something  else  that  has  relevant  features  or 
properties  of  the  original  [Ref.  1:  p.  10].  Simulation  is  an 
analytic  technique  using  the  mathematical  and  logical  models 
which  represent  a  real  system  in  order  to  study  the 
processes  over  periods  of  time.  Neither  definition  implies 
the  use  of  a  computer,  however,  for  the  purposes  of  this 
text  the  terms  will  carry  that  implication  [Ref.  1:  p-9]- 
Hodelling  is  the  process  by  which  an  analyst  arrives  at  a 
model  or  sinulation  [Bef.  2:  p. 9]. 

A  model  or  simulation  can  be  distinguished  by  its  ulti- 
mate purpose,  listed  in  Figure  1.1  £Ref.  1:  p. 10]  are  some 
of  the  more  common  ones. 
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Figure  1.1   Purpose  of  Simulation. 

The  military  applications  of  simulations  ace  primarily 
concentrated  in  the  operations  category.  The  goals  of  an 
operational  type  model  are  broken  down  as  in  Figure  1.2 
[Ref.  1:  p. 13]. 
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Figure  1.2    Goal  of  an  Operational  Model. 

Of  the  goals  listed  above,  the  most  important  one  for 
military  purposes  is  the  planning  and  evaluation  category. 
Some   of   the    most   prevalent   uses   under   planning   and 
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evaluaticn  are  technical  evaluation,  doctrinal  evaluation/ 
force  structure  evaluation,  and  planning.  These  classifica- 
tions of  simulations  determine  the  structure  of  the  model. 
A  model  designed  for  research,  for  instance,  will  te  geared 
toward  a  technically  oriented  person  who  is  familiar  with 
computers,  programming  and  the  associated  logic.  A  military 
oriented  planning  model  must  be  designed  for  the  staff 
officer  \«ho  will  be,  more  likely  than  not,  unf i  miliar  with 
computers  and  programming  techniques.  This  would  imply  the 
model  should  be  easy  to  use  and  be  accompanied  by  the  appro- 
priate level  documentaion  for  the  non-technical  staff 
officer   or    decision    maker.       [Eef.    1:    p. 13] 

The  scenario  illustrated  in  the  first  paragraph  of  this 
thesis  was  surely  posed  to  some  staff  officer  at 
Headquarters  Marine  Corps,  The  response  was  probably  either 
to  lock  for  some  existing  model  or  contract  to  have  one 
developed.  The  result  is  that  there  are  several  programs  in 
existence  which  simulate  the  ship-to-shore  movement  of  the 
amphibious  operation.  They  exist  as  a  portion  of  a  larger 
combat  model  or  as  an  entity  by  themselves.  These  models, 
having  been  written  seme  time  ago,  were  developed  for  use  on 
large  main  frame  computers.  That  fact  automatically  limits 
the    availability    to    the    staff    officer    or   decision    maker. 

With  the  proliferation  of  microcomputers,  the  next 
logical  step  in  the  evolution  of  this  type  of  nodel  was  to 
provide  the  staff  officer  with  the  ability  to  run  the  simu- 
lation from  his  desk.  This  would  allow  him  to  respond 
rapidly  to  'what  if  type  questions  which  are  often  bantered 
about      in      planning      sections    of      any      headquarters.  That 

requirement  was,  in  fact,  made  and  a  civilian  contract  was 
let  to  develop  a  ship-to-shore  model  to  be  run  on  a  micro- 
computer. Unfortunately,  for  some  reason  unkaown  to  the 
author,  the  program  that  was  developed  was  not  implemented. 
It    was    'shelved'    at    the   Development   Center,    Quantico,    Va.    in 
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an  unusatle  form  with  little  documentation.  The  author, 
during  his  experience  tour  was  exposed  to  the  aD del  and  was 
lade  aware  of  the  need  to  have  it  completed.  That  leads  in 
to  the  purpose  of  this  thesis. 

B-   POEPCSE 

The  purpose  of  this  thesis  is  to  complete  the  develop- 
ment of  the  amphibious  sh ip— to-shore  model  for  use  en  a 
micrccomputer.  This  will  he  accomplished  by  using  a  design 
process  for  simulations  as  if  the  model  was  being  initiated 
from  scratch.  Included  will  be  the  capabilities  and  limita- 
tions of  the  model  to  ensure  the  decision  raakar  has  full 
knowledge  of  the  output.  Finally,  the  finished  product  will 
be  accompanied  by  the  appropriate  level  of  documentation 
directed   at    the    primary    user. 
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II.    SIMOIATIONS 

Ihe  process  by  which  an  analyst  derives  a  model  is 
considered  as  much  an  art  as  a  science.  Thus,  there  are  no 
theorems  or  strict  rules  to  guide  one  in  the  development. 
The  actual  steps  followed  by  the  model  builder  are  very 
situation  dependent.  However,  there  are  some  basic  techni- 
ques which  are  commcnly  followed  by  experienced  modellers 
and    provide    a   framework    for    good    model    development. 

The  approach  begins  with  a  simple  model  and  attempts  to 
evolve  into  a  more  elaborate  model  which  more  clDsely  resem- 
bles the  actual  situation  being  modelled.  As  the  model 
achieves  the  simplified  goals,  new  problems  may  be  identi- 
fied cr  greater  realism  may  be  desired  which  would  lead  to 
revisions  and  additions.  Thus,  the  evoution  of  a  model 
never    really  stops    until   it    has   outlived    its    usefulness. 

Based  on  the  definition  of  simulation  in  chapter  one,  a 
simulation:  (1)  is  concerned  with  the  operation  of  systems; 
(2)  is  concerned  with  the  solution  of  real  world  problems; 
and  (3)  is  performed  as  a  service  for  those  interested  in 
its  behavior.  From  these  characteristics  the  criteria  for  a 
good    simulation    are: 

1.  Simple   to   understand    by    the    user 

2.  Goal   or    purpose   directed 

3.  Robust,       i.e.,      it   does   not      give    absurd   i nswers    when 
minor  changes    in    parameters   are   made 

4.  Easy    for    the    user   to    control   and    manipulate 

5.  Complete    on    important   issues 

6-      Adaptive,      with   an   easy    procedure   for    modification    or 

update 
7.      Evolutionary    -      start   simple   and   become      a  ore    complex 

in   conjunction    with    the      user's    requirements   [Ref.    3: 

p. 22] 
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with  the  above  criteria  ir  mind.  Figure  2.1  [Ref.  3: 
p,2U]  illustrates  a  general  design  process  for  a  simulation 
model.  Note  the  flows  which  return  to  earlier  stages  on  the 
diagram.  Those      indicate      the   iterative      proc3 ss      of      the 

desigr.  The  following  discussion  will  elaborate  on  each 
step.  However,  keep  in  mind  the  general  nature  of  the 
process. 

The  most  critical  step  in  the  development  of  a  model  of 
a  system  is  to  define  the  problem.  Albert  Einstein  once 
stated  that  proper  formulation  of  a  problem  was  more  impor- 
tant than  its  solution  [Ref.  3:  p. 25].  One  Df  the  most 
important  functions  of  an  analyst  is  to  translate  the 
problem,  often  vaguely  stated  by  the  decision  n aker,  into 
precise  and  operational  terms  [Ref.  4:  p. 51],  The  analysis 
begins  with  specification  of  the  goals  and  objectives  and 
the      establishment    of      boundaries      of      the    model.  A      flow 

diagram  which  neither  oversimplifies  nor  carries  too  much 
detail  is  the  next  step  in  the  problem  formulation.  Cne 
should  construct  the  model  around  the  questions  to  be 
answered  rather  than  imitate  the  real  system  exactly. 
[Bef.    3:    p-27] 

At  this  point  a  decision  must  made  whether  simulation  is 
the  optinal  technique  for  solving  the  stated  problem.  If  a 
less  complicated,  more  direct  technique  exists,  it  should  be 
pursued    in    the    name    cf   efficiency   and   cost. 

Once  the  decision  to  use  simulation  is  mada ,  the  data 
requirements  must  be  analyzed.  This  includes  data  regarding 
the  input  and  output  of  the  system  as  well  as  information 
about  the  various  components  of  the  system  [Ref-  3:  p-27]. 
Availibilty  of  input  data  for  the  system  must  be  determined 
in  addition  to  historical  output  data  for  use  ii  validation 
of  the  mcdel.  In  conjunction  with  the  data  analysis  is  the 
identification  of  major  variables  to  be  used  in  the  system 
which  immediately  preceed  the  formulation  of  model 
subsystems. 
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large  probleirs  should  be  segmented  into  sabs/ stems  which 
are  as  independent  of  each  other  as  possible.  This  facil- 
tates  a  logical  development  and  makes  validation  much  less 
complicated.  Without  the  submodels  the  entire  simulation 
model  would  have  to  be  formulated  and  validated  at  once  -  a 
formidible    task.  The   decision    maker      should    take      part   in 

this  phase  of  development  to  further  his  knowledge  of  the 
model  and  the  results  and  to  keep  the  builder  from  straying 
from    the   purpose   of    the   model.       [Ref.    4:    p. 55] 

After  combining  the  subsystems  into  the  simulation,  the 
data  and  parameters  identified  ealier  should  be  gathered  to 
ensure  they  fit  into  the  model.  If  necessary  some  subsys- 
tems may  have  to  be  adjusted  to  accomodate  the  data  and 
parameters.  The  next  stage  involves  choosing  an  appropriate 
computer   language   with   the    following    considerations: 

1.  Efficiency   of    computer    translation   and   running    speed 

2.  The    difficulty  of   translating      the    description    of    the 
subsystems  into    the    computer   language 

3.  The    output      desired    from    the      simulation    and      ease   of 
obtaining   the    output 

4.  The    limitations   of      the   computer   hardware    to      use    the 
language 

Model  translation,  coding  and  debugging  the  model 
follow.  The    advantage      to      using      submodels  b3 comes      very 

evident  during  the  debug  phase.  The  more  independent  the 
submodels  are  the  easier  it  will  be  to  debug  on  a  component, 
basis . 

An  inportant  step  in  the  design  process  is  the  valida- 
tion of  the  simulation  model.  Validation  is  th2  process  of 
bringing  to  an  acceptable  level  the  user's  cofidence  on  how 
well  the  real  system  is  being  modelled.  It  is  impossible  to 
prove  that  any  model  is  a  "true"  depiction  of  a  real  system, 
although  a  careful  and  thorough  evaluation  can  build  confi- 
dence   in   the  simulation.         [Ref.    3:      p. 29]    This   area    is   very 
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deficient      in   sinulation      models    found      in    DOD.  Empirical 

tests  are  questionable  or  non-existent,  and  few  efforts  are 
teing    made    to   require   proper    validation.       [Ref.    Tl :    p.  189} 

Ihere  are  three  tests  that  may  be  used  to  validate  a 
model.  First/  results  that  are  produced  must  appear  to  be 
reasonable  based  on  experience.  Second  is  to  test  any 
assumptions  made  about  the  system  and  third  is  to  test  the 
input-output      transformations.  [Eef.    3:      P-29]      A      common 

method  of  validating  the  output  is  to  compare  it  to  histor- 
ical data  collected  under  similar  conditions.  If  the  two 
are  close/  the  model  can  be  accepted  as  a  repres  entaticn  of 
the  real  system.  The  ultimate  validation/  however,  is  how 
well  the  model  predicts  the  future  or  how  well  it  performs 
the    analysis  it    was    designed   to   perform.       [Eef.    4:    p. 57] 

The  amount  and  type  of  experimentation  and  sensitivity 
analysis  depend  on  the  main  purpose  of  the  simulation.  At 
this  stage,  the  model  is  run  using  various  sets  of  data  and 
parameters  in  a  systematic  manner  to  observe  the  response. 
Often  it  is  at  this  point  when  flaws  and  oversights  in  plan- 
ning become  more  evident  requiring  the  builder  to  retrace 
some  steps  in  the  design  process.  Deficiences  ii  estimating 
the  validity  of  input  parameters  is  a  result  of  insufficient 
or    poorly   conducted    sensitivity   analysis.      [Eef.     1:    p. 189] 

The  final  two  elements  in  the  design  procass  must  be 
included  in  any  simulation  project.  Implementation  refers 
to  refining  the  model/  training  the  user,  adjusting  the 
model  to  changing  conditions  and  ensuring  that  the  results 
found      are    valid.  [Eef.     3:      p-33]     Good    documentation     is 

extremely  valuable  for  facilitating  changes  ani  gaining  a 
basic  understanding  of  the  model.  Resources  are  wasted  as  a 
result  of  poor  documentation.  This  was  noted  by  GAO  reports 
which  investigated  many  of  the  problems  found  with  operating 
or  modifying  models.  Even  though  implementaion  and  documen- 
taion    are    tedious   and   difficult/    when   done    properly   they   can 
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€xtend  the  life  of  a  model.  Hore  importantly,  they  facili- 
tate tie  use  of  simulation  which  is  particularly  crucial  in 
an  environment  heavily  oriented  toward  the  need  of  users. 
[Eef .  1:  p. 191 ] 

Id  tie  chapters  which  follow,  the  procedure  outlined 
above  will  be  modified  slightly  to  fit  the  conditons  under 
which  the  actual  model  development  took  place.  Each  phase 
of  the  design  process  will  be  made  apparent  during  the  pres- 
entation as  well  as  any  deviations  from  those  steps  as 
explained  above. 
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III.     IHE    SYSTEM 

An  amphibious  operation  is  an  attack  launchsd  froir  the 
sea  t;y  naval  and  landing  forces  embarked  in  ships  or  craft 
involving  a  landing  on  a  hostile  shore.  The  principle  type 
of  amphibious  operation  is  the  amphibious  assault  which  is 
distiguished  from  other  types  in  that  it  involves  estab- 
lishing a  force  on  a  hostile  shore.  The  amphibious  assault 
follows  a  sequence  of  activities  which  consist  Df  planning, 
embarkation,  rehearsal,  movement  to  the  objective,  and 
finally,  assault  and  capture  of  the  objective.  [Ref.  5: 
p. 1-3] 

The  ship-to-shore  movement  is  the  part  of  the  assault 
phase  which  pertains  to  the  timely  deployment  of  troops  and 
equipment  from  assault  shipping  to  designated  positions 
ashore  on  the  landing  area.  This  movement  is  designed  to 
ensure  the  landing  of  troops,  equipment  ,  and  supplies  at 
the  prescribed  times  and  places  in  such  a  manner  as  to 
support  the  scheme  of  maneuver  for  operations  ashore.  The 
movement  can  be  accomplished  by  waterborne  means,  ty  heli- 
copters,   or   by    a   combination   of    the    two.       [Ref.    6;    p. 45] 

The  ship-to- shore  movement  is  the  most  critical  part  of 
the  assault  phase.  The  coordination  and  control  of  the  many 
diversified  naval  and  troop  elements  requires  a  high  degree 
of  very  detailed  planning.  Such  items  as  the  linding  craft 
and  helicopter  availability,  amphibious  vehicle  and  heli- 
copter employment,  assault  schedule,  landing  sequence, 
serial  assignments  (a  serial  is  a  number  assigned  tc  an 
element  of  the  landing  force),  and  wave  assignments  are  just 
a  few  of  the  areas  to  be  planned  prior  to  execution  of  the 
landing.      [Ref.    5:    p. 11-7] 
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Ihe  ship-to- shor€  movemerit  is  farther  divided  into  two 
periods,  initial  unloading  and  general  unloading.  Ihe 
initial  unloading  period  is  priitarily  tactical  in  nature  and 
therefore  must  be  responsive  to  the  landing  force  reguire- 
nients  ashore.  A  tactical  situation  is  where  ths  troops  and 
equipment  going  ashore  are  prepared  to  fight.  They  are 
organized  in'  combat  units  and  execute  a  set  plan  for  the 
purpose  cf  forcibly  taking  the  beach  and  landing  zones.  It 
is  during  this  period  that  the  landing  force  is  sstablishing 
a  foothold  ashore  and  the  unloading  of  units  is  very  selec- 
tive. Ihe  general  unloading  period  is  logistic! 1  in  nature 
and  involves  the  timely  delivery  of  needed  supplies  and 
equipment.  During  this  time  period,  the  majority  of  combat 
troops  are  established  ashore  and  are  involved  with  the 
execution  of  the  operational  plan  of  attack,  A  beachhead 
exists  and  is  considered  a  more  secure  rear  area  where 
supplies  and  equipment  continue  to  arrive  in  support  of  the 
combat  troops  at  the  front. 

There  are  several  descriptive  categories  of  waves^ 
involved  in  the  movement  of  forces  and  equipment  ashore 
according  to  the  landing  plan.  These  categories  actually 
divide  the  entire  landing  force  and  their  equipment  into 
major  groups  to  provide  flexibility,  organization,  and 
control  of  the  landing.  Three  of  these  categories  are 
concerned  with  troops  and  their  initial  combat  supplies. 
These  are  scheduled,  cn-call,  and  nonscheduled  waves. 

Two  ether  categories  of  waves  are  are  concerned  with 
unloading  of  supplies.  These  are  called  floating  dumps  and 
landing  force  supplies  which   only  apply   to  the  water-borne 


lA  wave  consists  of  a  number  of  landing  craft  or  heli- 
copters which  are  to  be  landed  simultaneously.  The  size  of 
a  wave  is  limited  by  beach  or  landing  zone  capacity  and  the 
availibility  of  vehicles.  Tactical  unit  integrity  is  para- 
mount when  constructing  a  wave. 
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means   of   dGlivery.  They    are    not    involved      witi    the    actual 

initial   comtat   landing. 

The    water-borne      aovement    is    broken      down   into      all    five 
categories.      These    include: 

1-      Scheduled      waves     — Scheduled      waves      are      formations 
which  consist      of   landing    ships,       landing      craft,      or 
amphibious   vehicles    which    contain    troops,    equipment    , 
and    supplies    to   be   landed    at   a    predetermii  ed    time   an-d 
place.         Their  landing    begins    at    H-hour   and    continues 
for    a  relatively    short    period    of    time. 
2*      On-call    waves   — On-call    waves      include   lai ding    ships, 
attphibious      vehicles,         or   landing      craft      containing 
troops,       equipment,       and    supplies      for   which    an    early 
need   ashore    is  anticipated,    but    for    which    the    time   or 
place  cannot    be   accuately      predicted.         Tie    commander 
will   call      for   these      waves   at      the    desired      time    and 
place   depending   on   the    situation   ashore. 
3.      Ncnscheduled      units      — Nonscheduled    units      are      those 
landing    force    elements   and   supplies    held   In   readiness 
during   the      initial    unloading,         but   not      included   in 
scheduled    or    cn-call    waves.      The    probable    sequence   of 
landing    nonscheduled    units   is   determined   i  uring    plan- 
ning,  however,   the   landing   of    these    units    is    directed 
from   shore   when   the    situation    dictates. 
^'      Floating        dumps      — Floating        dumps      are        emergency 
supplies    preloaded   in   landing   craft,    amphibious    vehi- 
cles,   or    in    landing    ships. 
5.      Landing    force      supplies   — Landing    force      supplies   are 
those  supplies     remaining    on      assault   shipping      after 
initial    combat   supplies    and      floating   dumps   have   been 
unloaded. 
As    the      amphibious   force    moves      into    the      objective   area 
the    different      types    of    ships      move    into    various      sea    areas. 
Sea    areas   are   used    to   minimize    possible    interference    between 
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various  components   of  the  amphibious   task  forc2   and  other 
supporting  forces.   Figure  3.1  [Eef.  5]  shows  these  areas. 
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Figure    3. 1        Amphibious   Task    Force   Areas. 

Some  definitions  of  the  various  sea  areas  follow.  Ihe 
lOD  (line  of  departure)  is  a  designated  line  off-shore 
approximately      parallel      to      the    beach.  From      this      line, 

successive  toat  waves  are  dispatched  for  their  final  move- 
ment to  the  beach.  The  waves  travel  in  boat  lanes  which 
extend  seaward  from  the  beach  to  the  LOD  and  ace  the  same 
width  as  the  beach.  Approach  lanes  are  extensions  of  the 
toat    lan€s    from    the    LOD    to    the    transport   area. 

Landing  ships  are  initially  staged  in  the  outer  landing 
area    and   when   instructed,      move      to   the    amphibioi s    launching 
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area.  This  is  located  seaward  of  the  LOD  and  parallel  to 
the  teach.  Landing  ships  move  in  this  area  pan  llel  to  the 
lOD  at  about  15  knots  and  discharge  the  amphibious  vehicles 
which  make  up  the  initial  assault  waves,  (see  Figure  3.1  ) 

Transports  move  from  the  outer  transport  area,  where 
they  were  initially  staged,  into  the  inner  transport  area. 
This  area  is  as  close  to  the  teach  as  the  hydrography^  and 
enemy  situation  will  permit  since  boat  operations  must  be 
conducted  at  a  very  slow  speed  or  at  a  dead  stop.  Landing 
craft  are  loaded  and  launched  from  this  area  and  proceed  to 
the  LCD  via  approach  lanes,  (see  Figure  3.  1  ) 

All  amphibious  vehicles  and  landing  craft  nove  to  the 
lOD  at  times  designated  by  the  landing  plan.  Movement  from 
the  LCD  is  controlled  by  various  control  officers  located 
along  the  way  and  waves  move  according  to  their  category 
(scheduled,  on-call,  nonscheduled)  at  appropriate  times. 
Those  tiices  have  been  computed  based  on  the  number  of  vehi- 
cles the  teach  can  accomodate,  speed  of  the  vehicles,  scheme 
of  maneuver,  etc.  If  the  wave  is  comprised  of  amphibious 
vehicles  there  is  no  turnaround,  which  means  that  those 
vehicles  proceed  inland  and  do  not  return  to  tha  ship.  If 
the  wave  is  made  up  cf  boats,  after  unloading  they  return  to 
the  transport  areas  for  subsequent  loads.  Figire  3.2  is  a 
diagram  cf  the  process. 

The  helicopter  movement  is  broken  down  into  three 
groups.  This  movement  is  normally  completed  during  the 
initial  unloading  period  when  tactical^  consids rations  are 
the  dciriDant  factors.  Once  the  helicopter-borne  movement  is 
completed,   transport  helicopters  are   employed  for  tactical 


SHydrography  is  the  description  of  the  physical  condi- 
tions of  a  body  of  such  as  the  depth,  type  of  bottom  (sandy, 
rocky),  currents,  etc. 

.  ^lactical  refers  to  a  high  state  of  combat  readiness 
maintained  while  executing  a  combat  plan.  The  assumption  is 
made  that  there  will  be  contact  with  enemy  forces. 
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Figure    3.2        Boat  Landing  Process. 

and    logistical    requirements    as   needed      by    the   landing    force. 

Categcri€s    for    the    air   movement    include: 

1 •  Scheduled  waves  — This  category  consists  of  those 
assault  elements  of  the  landing  force,  together  with 
their  initial  combat  supplies,  which  will  be  landed 
by  helicopter.  Times,  places,  and  formations  for 
landing       have      been    determined.  Scheduled      landing 

begins  at  a  specified  time  and  continues  until  all 
elements  in  this  category  are  landed. 
2.  On- call  waves  — This  category  consists  of  those  heli- 
copterborne  units  with  their  initial  combi t  supplies, 
or  emergency  supplies,  whose  need  ashore  at  an  early 
hour  is  anticipated,  but  whose  time  and  place  of 
landing  cannot  be  accurately  predicted.  On-call  waves 
may  interrupt  other  landing  categories  based  on  the 
urgency    of      the   requirement.  On-call   elements      are 

held   in    readiness  aboard    shipping    and   are    landed    when 
called   by   the    appropriate    level    commander. 
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3,      Ncnscheduled      units    — Nonsched uled      units    consist     of 

any    remaining      units    of    the      landing   force      and    their 

initial    combat   supplies    which      have   not   been    included 

in    either   the    scheduled    or   on-call    categories.         This 

category    can    be   interrupted      or    temporarily    suspended 

because    of   unforeseen   circumstances      in   the    situation 

ashore. 

The  shipping  carrying  the  helicopters  initially  moves  to 

the  helicopter  transport  area  which   is  generally  seaward  of 

the  outer  transport  area.   (see  Figure  3.1  )  From  this  area, 

helicopters  comprising   the  first  assault  waves   are  readied 

and  spotted  on  the  flight  decks.   On  signal,  troops  enplane, 

and   helicopters  are  launched.     Flights   of   helicopters 

rendezvous   about  their   parent   ship   and  then   proceed  as 

predeterained  waves.    They  travel  via  designated  helicopter 

lanes   and   control   points  enroute   to   the   landing   zone. 

Figure  2.3      [Ref.  7:   p.  11*3  ]  is   a  diagram  of   this  process. 

The  helicopter   waves  pick   up  attack   helicopter  protection 

that  provides  ground  fire  suppression.    The  waves  land,  are 

unloaded,   and   return  to   the  ships   to  refuel   and  enplane 

subsequent  troop   serials.*  A  schematic   of  this   process  is 

found  in  Figure  3.4  [Eef.  7:  p. 121]. 

LCAC  (landing  craft  air  cushion)  would  launch  from 
greater  distances  than  boats  because  of  their  speed.  They 
would  operate  much  like  helicopters  in  that  they  can  travel 
inland  to  off  load  troops  and  eguipment  instead  of  stopping 
at  the  beach.  They  would  also  be  able  to  return  to  shipping 
for  subsequent  loads. 


.  ♦A  serial  is  a  designator  (number)  given  :o  a  combat 
unit  or  a  , piece  of  equipment  for  the  purpose  of  assignment 
to  a  carrier  going  to  shore.  This  provides  control  and 
organization  during  the  landing  phase  of  the  ops  ration.  A 
wave  IS  made  up  of  many  serials. 
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ENCLOSURE  2  (Helicopter  Landing  Diagram)  to  Tab  D  (Vertical  Assault  Plan) 

to  Appendix  5  (Landing  Force  Landing  Plan)  to  Annex  R  (Amphibious  Operations) 

to  IV  MAF  OPLAN  9999  (U) 


Figure    3-3         Helo   Flight   Lanes. 
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Figure  3.4    Helo  Flight  Plan, 
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IV.     THE    MODEL 

The  ship-to-shore  model  attempts  to  simulate  the  process 
descrited   in  chapter      3    of    this   paper.  Preparition    of    the 

model  for  use  involves  construction  of  the  serials  and 
assault  ¥av€s  which  is  done  manually  as  they  would  be  prior 
to  an  operation.  This  process  is  the  basis  for  the  largest 
of  three  data  files  used  in  the  simulation.  Unfortunately, 
construction  of  the  serials  and  waves  is  a  very  time 
consuming    process   and   has  not    teen   automated    at    this    time. 

Two  ether  data  sources  are  needed  to  run  the  model.  One 
file  contains  parameter  values  which  are  not  subject  to 
change.  A  helicopter      time   factors      table    whir  h      provides 

expected  tines  for  various  evolutions  such  as  loading  or 
unloading  is  an  example  of  the  type  of  data  found  in  this 
file.  The  last  source  of  data  is  found  within  the  program 
itself  as  either  a  line  of  code  or  as  an  interactive  query. 
This  data  is  of  the  type  that  may  be  changed  easily  for 
various    types  of  analysis. 

The  model  utilizes  35  subroutines  to  attempt  to  trans- 
late reality  into  mathematical  computations.  A  diagram  of 
the  model  in  very  general  terms  is  found  in  Figure  4.1  The 
first  subroutine  in  the  program  reads  the  data  from  the  wave 
and  serial  file  and  the  parameter  file.  Also  the  variable 
data  is  entered  within  the  first  section  of  the  program. 
The  second  subroutine  initializes  the  arrays  and  clocks  to 
be  used  by  the  timing  and  activity  subroutines  based  on  the 
infornation   found      the    wave      data   file.  These    subroutines 

essentially  complete  the  set-up  and  initialization  of  the 
model . 
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Figure   4.  1        Flow   Chart   of    the    Model. 
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Cnce  the  model  enters  the  EXEC  subroutine  L  t  ccntinues 
the  time/event^  procedure  until  all  waves  have  been  landed. 
Ihe  EXEG  subroutine  is  the  control  routine  in  which  all 
waves  eventually  pass.  Based  on  the  class  of  tae  wave  (air 
cr  surface)  and  the  current  activity  (load,  launch,  unload, 
return,  cr  arrive  back  ship),  the  EXEC  subroutine  will  send 
the  wave  in  question  to  the  proper  subroutine  for 
nanif ulation. 

Prior  to  going  to  one  of  the  activity  subroutines',  the 
program  queries  whether  certain  flags  have  been  set.  If 
they  have  teen  set,  cne  of  the  following  routines  could  be 
called.  Five  are  fcr  helicopter  waves  and  four  are  for 
surface    waves.       They    are: 

•  BESTAEKhelo)  /  BESTAF^  (surface)  :  Restart  timing  for 
waves  that  have  been  stalled  by  the  lack  of  deck  spots 
(helo    or      surface).         Since      in    reality      there    are      not 

enough  deck  spots  to  accomodate  all  of  the  assault 
helicopters  (landing  craft),  subsequent  waves  must  wait 
for   sufficient    spots   to   load. 

•  STOCK  (helo)  /  STCCL (surface)  :  Tnese  subroutines  start 
the  on-call  waves  to  load  after  the  final  scheduled 
wave    has   begun    to   load. 

•  HALTSH  (helo)  /  HALTSL ( surf)  :  Stall  remainii g  scheduled 
waves  when  one  or  more  on-call  waves  interrupt  the 
scheduled  category.  As  in  reality,  oh-cal 1  waves  can 
break  in  when  called  for.  The  model  allows  flags  to  be 
set   to   simulate    this   process. 

•  STSH(helo)  /  STSI (surf  ace)  :  Start  schedule!  waves  that 
have  teen  stalled  due  to  on-call  waves  interrupting  the 
sequence.         More   than    one    on-call   wave   can   interrupt   at 


^Time/event  refers  to  the  computation  of  time  required 
to  complete  a  certain  event  such  as  loading  a  helicopter. 
That  time  is  added  to  a  continuous  running  clock  to  deter- 
mine   the    tine   at   which   that    event    will    take   place. 
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different    times      so   the      HALT3H (L) /STSL  (L)       subroutines 
can   te   called    more   than   once. 

•  HCKID  (helo)  :  Reevaluates  deck  spot  employn ent  if  the 
current  wave  does  not  occupy  all  spots  available.  It 
calls  WSPOT  which  calculates  the  number  of  spots  to  be 
used    in  the    current   wave. 

One  last  subroutine  will  be  called  prior  to  the  activity 
subroutines.  This  is  the  MSCRT  routine  which  acts  as  the 
master  sort  routine.  It  takes  the  lowest  time  from  six 
other  tine/event  sort  routines  and  that  becomes  the  next 
event  which  is  prccessed  by  the  appropriate  activity 
subroutine. 

There  are  three  time  sort  routines  common  to  the  heli- 
copter activities  and  three  time  sort  routines  common  to  the 
surface  activities.  Ihey  all  sort  through  the  waves  identi- 
fying the  wave  with  the  earliest  time  for  the  next  event. 
That  wave  is  placed  en  the  top  of  the  queue  from  which  MSOET 
then  picks  the  lowest  time  out  of  the  six  time  sort 
routines.      listed   below    are    the    sort    subroutines: 

•  HSSCRT :    Scheduled   helicopter    wave   sort   routine. 

•  HC5CET:   On-call    helicopter   wave    sort    routine . 

•  i]]i  SORT :   Nonscheduled  helicopter    wave    sort  rD  utine. 

•  i S SCRT :    Scheduled   surface    wave   sort   routine. 

•  ICSCRT :   On-call    surface    wave   sort    routine. 

•  IHSCRT:   Nonscheduled   surface    wave  sort   routine. 

The  activity  subroutines  process  each  wave  based  on  its 
class,  activity  code,  and  category  (scheduled,  on-call,  or 
nonscheduled).  There  are  five  major  activity  subroutines 
for  each  class  (air  or  surface) .  Each  activity  subroutine 
calls  other  secondary  routines  and  the  appropriate  time  sort 
routine  as  determined  by  the  wave  category.  Oace  the  wave 
has  ccmpleted  an  activity  subroutine,  it  returns  to  the  EXEC 
subroutine  and  the  cycle  begins  again.  Thus,  ear h  wave  will 
eventually    cycle  through   five    subroutines. 
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The    following   is      a    summary   of    the      activity      subroutine 
and    their   supporting    routines: 

•  Mi^:  The  purpose  is  tc  load  (or  attempt  to  load)  a 
helicopter  vave  from  available  flight  deck  spots  of  the 
shipping.  Loading  will  not  be  initiated  if  (a)  no  deck 
spots  are  currently  available  or  if  (b)  insufficiert 
helicopters  of  the  proper  type  to  carry  the  serials  are 
present  at  the  time.  HELD  calls  the  appropriate  time 
sort  routine  (HSSORT,  HCSORT,  or  HNSORT)  and  subroutine 
SPOTS.  The  SECTS  routine  identifies  whether  all  the 
deck  spots  a^re  curently  being  employed  for  loading.  A 
flag  is  set  to  indicate  whetner  deck  spots  are  avail- 
able   cr  not, 

•  HINCH:  This  routine  launches  a  helicopter  wave  from 
ships  and  determines  the  time  it  will  arrive  at  the 
landing  zone(s).  It  determines  the  numo er  of  deck 
spots  made  available  to  subsequent  waves  and  restores 
those  spots.  Also  it  reevaluates  the  loading  tiire  for 
a  wave  being  leaded  which  had  employed  all  of  the 
remaining  deck  spots.  HINCH  calls  the  appropriate  time 
sort  routine  (HSSORT,  HCSORT^  or  HNSORT)  and  HLCDCK  and 
RESTART.  HLODCK  sets  up  signals  that  will  initiate  a 
reevaluatioE  of  the  deck  spot  employment  in  the  event 
that  the  current  wave  was  not  employing  the  last  avail- 
able deck  spot.  Those  signals  will  trigger  the  use  of 
HCKID  which  is  called  from  EXEC.  If  the  current  wave 
was  occupying  the  remaining  deck  spots,  a  flag  is  set 
to  call  RESTART  from  EXEC.  RESTART  allows  subsequent 
waves  to  employ  deck  spots  which  will  be  vacated  by  the 
current  wave. 

•  HONID:  HUNLD  determines  whether  or  not  landing  zones 
are  still  occupied  by  previous  waves  and  if  so  delays 
the  landing  of  the  current  wave  until  the  pertinent 
zones    are    free    tc    use.  Also  it   calculates    the    length 
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of  tiir€  necessary  for  this  wave  to  unload  (constrained 
ty  the  size  of  the  landing  zone).  HUNLD  calls  the 
appropriate  time  sort  routine  (HSSOET,  HCSOET,  or 
HNSCET) . 

•  HBTN:  The  purpose  is  to  print  a  running  t  otal  of  the 
personnel  ashore  and  the  firepower  ashore.  Also  HRTN 
calculates  the  time  that  the  wave  will  ret  urn  to  the 
area  of  the  shipping  and  hence  be  available  for  forna- 
tion  of  subsequent  waves.  It  calls  the  appropriate 
time    sort    routine    (HSSCRI,    HCSORT,    or    HNSORT ) . 

•  Hi?-RIV:  HARIV  returns  helicopters  to  the  helicopter 
pools  for  use  in  forming  subsequent  waves  after 
degrading  the  nuirber  of  helicopters  to  reflect  mainte- 
nance losses.  It  also  initiates  the  loading  process 
for  subsequent  waves.  HARIV  calls  the  appropriate  time 
sort   routine    (HSSOET,    HCSORT,    or    HNSOfiT) . 

The  surface  activity  subroutines  operate  in  basically 
the  same  manner  (the  first  letter  for  surface  activities  is 
E      instead    of      H).  Since    the      following      routines    are      so 

similar    to      the    helicopter      routines,      only      the    differences 
will    be    jointed    out. 

•  J^i£-  The  purpose  is  to  load  the  landing  craft  in  a 
similar  fashion  to  the  HELD  for  helicopters.  It  calls 
the  appropriate  time  sort  routines  (LSSORT,  LCSORT,  or 
INSCRT)  and  the  subroutine  WEIDEK.  WEIDEK  calculates 
the  well  decks  to  be  used  by  landing  craft  of  each  wave 
and  indicates  whether  there  are  sufficient  openings  or 
not. 

•  ELNCH:  This  routine  launches  the  surface  wa/ es  from  the 
ships.  It  calls  the  appropriate  time  sort  routine 
(ISSOEI,    LCSORT,    or    LNSORT). 

•  EUNID:  BUNLD  determines  if  the  beach  is  open  for 
landing  and  off-loads  the  wave  if  it  is  possible.  It 
calls  the  appropriate  time  sort  routine  (LSSOET, 
ICSCRT,    or    LNSOEI) . 
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•  ^ETN:  ERTN  prints  the  running  total  of  personnel  ashore 
and  the  firepower  ashore.  Also,  it  returns  the  toats 
to  the  ships.  It  calls  the  appropriate  time  sort 
rcutine    (LSSORT,   LCSORT,    or    LNSORT) . 

•  li^ll •  This  routine  returns  the  boats  to  ths  toat  pools 
for  subsequent  use.  It  calls  the  appropriate  time  sort 
subroutine     (LSSCET,    LCSOBI,    or    LNSORT). 

Once  each  wave  has  cycled  through  the  five  helicopter 
activities  or  the  five  surface  activities,  they  are  assigned 
a  very  large  value  in  their  time  array.  This  prevents  them 
from  recycling.  The  program  will  end  when  the  last  nonsche- 
duled  surface  wave  has  gone  through  all  activities.  At  that 
point,    all    personnel    in   the    wave    data    file    will    be   ashore. 
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V.  VAIIDATION  AND  VERIFICATION 

A.   GIBEBAI 

The  purpose  of  validation^  of  a  model  is  to  tring  to  an 
acceptable  level  the  user's  confidence  on  how  W2 11  the  real 
system  is  heing  modelled  [Ref.  3:  p. 29].  A  common  method 
and  perhaps  the  best  is  to  compare  the  results  Df  the  model 
with  historical  data.  However,  after  some  research  it  was 
discovered  that  there  is  a  lack  of  historical  data 
concerning  actual  sLip-to-shore  operations  in  the  Marine 
Corps.  Although  there  is  data  collected  for  reports  which 
are  required  after  training  exercises,  none  of  the  pertinant 
information  is  retained  after  the  reports  have  been 
compiled . 

The  next  best  method  available  to  verify  this  model  was 
to  compare  the  results  to  another  sophisticated  simulation 
designed  and  refined  to  run  on  a  large  main  frame  computer. 
Several  such  models  exist  and  the  results  utilized  in  this 
thesis  are  found  in  a  study  which  employed  one  of  those 
models   [ Eef .   9 ]. 

This  section  will  be  divided  into  two  major  subsections 
for      the      purposes      of  organization.  The      first      will      be 

concerned  with  verification  and  will  cover  an  initial  fhase 
using  a  simplified  test  data  set  and  the  second  phase  will 
use    more   complicated    input    data.  The    second   major   subsec- 

tion   will   involve   sensitivity    analysis    of    the   model. 


^Although  there  are  many  authors  who  distingjish  between 
"verification"  and  "validation"  of  a  model,  there  is  no 
consistent  use  of  the  terms  in  the  literature.  Therefore, 
the  terms  will  be  used  interchangeably  in  this  thesis  and 
have    the   saie   meaning  [Ref-     8:    p. 631]. 
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B.   7ALIEATI0N 

"J-   Initial  Phasj:  Simplified  In£ut  File 

Ihe  initial  fhase  of  the  verification  analysis  is 
designed  to  ensure  the  model  is  operating  correctly  for  a 
simplifi€d  case  which  can  be  computed  hy  hand.  A  simple 
landing  plan  will  net  test  all  the  routines  within  the 
program.  However,  the  major  routines  will  be  exercised  to 
demonstrate  that  the  basic  logic  is  working. 

Ihe  input  data  for  the  model  for  this  phase  is 
located  in  Table  I  .  As  one  can  observe  the  landing  plan  is 
reduced  to  essential  information  only.  Data  file  T-1.CAT 
remains  unchanged  and  the  interactive  input  provides  the 
parameters  necessary  to  run  this  test.  At  this  point  many 
acronyms  will  appear  in  the  text  and  tables.  Appendix  A 
contains  a  glossary  of  those  acronyms  that  will  be 
encountered. 

Dsing  the  data  in  the  Helo  Time  Factors  Table  {Table 
XVIII),  hand  calculations  were  made  to  determine  the  time 
that  each  wave  would  land  and  unload  in  the  LZ  from  the  time 
the  wave  was  loaded  on  the  ship.  Also  the  number  of  troops 
being  urloaded  was  computed  at  this  time.  Table  II  gives 
the  results  of  the  model  and  those  of  the  hand  calculations. 

It  is  obvious  by  the  results  of  this  extremely 
simple  run  that  the  model  is  at  least  functioning  in  a  basic 
mode.  To  attempt  to  verify  a  complex  landing  plan. by  hand 
calculations  would  be  ludicrous.  Therefore  the  irethod 
alluded  to  in  the  introduction  of  this  chapter,  comparison 
with  historical  data,  would  be  the  best  way  to  verify  a 
large  landing  plan.  However,  since  there  is  a  lack  of 
historical  data,  another  more  sophisticated  simulation  was 
employed. 
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TABLE 

I 

T 

Input  Parameters  for 

•    Simpli 

fied   Test 

Landing    Plan    Test 

Carrier 

Number 

Wave/Serial                    # 

Pers 

Il£e 

Carriers 

Best 

Sched    helo    #V#1 

1  0 

CH-46 

2 

R-1 

Sch€d    helo   #1/#2 

10 

CH-4b 

2 

R-1 

Sched    helo    #2/#1 

10 

CH-46 

2 

E-1 

Sched    helo   #2/#1 

10 

CH-46 

2 

E-1 

Sched  surf   #1/#1 

1  0 

LCI1-3 

2 

G-1 

On-call    helo    #1/#1 

10 

CH-46 

2 

R-1 

On-call    surf    #!/#  1 

10 

LCM-8 

2 

G-1 

NcDSched    helo    #1/*1 

10 

CH-46 

2 

R-1 

NoDsched  surf   #1/#1 

10 

LCM-8 

2 

G-1 

Input    T:araineters 

Values 

Operational    deck    spots 

60 

Helicopter  Launch    distance 

10    NJ1 

Shore   to    landing    zone 

distance 

2    NM 

Boat    launch    distance 

8    NM 

Landing    zone    size 

Unlimitei 

Beach   size 

Unlimited 

Numter    of  carriers 

Helcs 

12 

Boats 

4 

Boat    launch    hour 

0 

Helo    launch    hour 

0 
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TABLE   II 



Results 

cf 

Simplified 

Data 

Set 

Run 

Time    of    unload 
on   LZ/beach 

# 

DB  rscnnel 
ashore 

Wave 

rjodel 

Hand 

M( 

2iLl 

Hand 

£ch€d    helo    #1 

21 

21 

23 

20 

Sc hed    helo    #2 

27 

27 

40 

40 

Cn-call  helo   #1 

29 

29 

53 

50 

Nonsched   helo    #  1 

38 

38 

60 

60 

Cn-call  surf    #1 

55 

55 

70 

70 

Monsched   surf    #1 

55 

55 

80 

80 

2.   Ihase  Twc:  Ccirpariscn  to  Lar^e  Scale  Simu  laticn 

A  computerized  amphibious  assault  model  (CAAM)  was 
used  in  the  study  in  [  Ref  -  9].  Ckk'A  utilized  a  coiputer 
language  called  GPSS  (General  Purpose  Simulati  on  System) 
which  is  designed  specifically  to  run  simulations.  Since 
the  study  was  mainly  concerned  with  the  air  portion  of  the 
amphibious  landing,  all  of  the  results  deal  with 
heliccpoter-borne  assaults  only.  This  is  not  a  problem 
since  SHIPSHOR  has  the  ability  to  run  in  an  all  helicopter 
mode,  all  surface  mode,  or  a  combination  of  the  two.  Thas, 
for  the  purposes  of  the  validation,  only  the  helicopter 
operation  of  SHIPSHOR  will  be  utilized.  Althoj gh  this  is 
not  considered  an  ideal  situation,  the  results  from  ether 
simulation  models  were  not  available. 

Several  sets  of  results  were  contained  in  the 
Amphibious  lift  Factors  Study.  Four  of  these  will  be  used 
to  make  the  compariscns.  An  attempt  was  made  to  duplicate 
the  CAAW   inputs  in  order   to  reach  some   viable  conclusions 
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about  the  ccmparisons.  Duplication  was  not  poss  itle  in  all 
cases.  However,  the  input  parameters  that  were  used  by 
SHIPSHOB   came   very    clcse   to    those    used    in    CAAM. 

A  case  base  was  used  as  a  standard  for  comparison. 
It  consisted  of  a  set  of  input  parameters  whica  produced  a 
profile  cf  the  progress  of  the  landing.  The  base  case  was 
then  compared  to  other  situations  to  obsevre  the  effect  on 
the    landing    profile.      Table    III    contains    the    base    case. 


TABLE    III 

Base  Case    for  CAAM  and    SHIPSHOB    Comparis©ns 

Kumber  cf    Helicopters 

launch    Dist             CH-ae  CH^53D      Cti-53E.            Attrition 

50    NM                        156  80                32                             0 

Speed    (type    load)  Operatonal                   Nun ber   of 

ISi^IMi     External  Deck    Sgots                           LZ  *s 

120    kts         100    kts  114                                         3 

Beach    to  LZ  Size    of    Landing 

Distance  Zone 

5    NM  Infinite 


The  following  section  will  present  four  situations 
involving  different  input  parameters  for  both  CAAM  and 
SHIPSHOR.  The  parameters  will  be  listed  followed  by  the 
graphic  presentation  cf  each  case. 
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a.      CAAH    vs    SHIPSHOR:    General    Comparison 
JilSiSI   oJ   Helicopters 

1.  Base   Case:    156   CH-46 ,    80    CH-53D,    32    CH-53S 

2.  1.5    Wing:       108   CH-a6,    64    CH-53D,     32    CH-53E 

3.  1.0    Wing:         72   CH-a6 ,    48    CH-53D,     16    CH-53E 


NUMBER  OF  HELICOPTERS:  CAAM 


■BASE 

'  1.5  WING 
1  1.0  WING 


100 


200 


300 


TIME 


Figure  5. 1    Number  of  Helicopters:  CAAB 
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NUMBER  OF  HELICOPTERS 


300 


TIME 


Figure  5.2    Uamber  of  Helicopters:  SHIPSHOB, 
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Helicc2t€r    launch   Distance 

1.  Base   case:  50NM 

2.  Alternate  case   #1:    35    NM 

3.  Alternate   case    #2:    15   NM 


HELICOPTERS  LAUNCH  DISTANCE:  CAAM 


TIME 


300 


Figure   5.3        Helicopter   Launch   Distance:    CAAM. 


aa 


Figure  5.4    Helicopter  Launch  Distance:  SHIPSHOB. 


as 


0£§£3tiojnal    Deck    S£Ot£ 

1.  Base   case:  114  operational  deck  spots 

2.  Alternate   case   #1:  176  operational  deck  spots 

3.  Alternate  case   #2:  57  operational  deck  spots 


Figure    5.5        Operational   Deck   Spots:    CAAM, 
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OPERATIONAL  DECK  SPOTS 


300 


TIME 


Figure  5-6    Operational  Deck  Spots:  SHIPSHOE. 


a? 


Mix    of  LauDch   Distances   and    Number   of    Helos 

1.  Base    case:    50    NM    and    156    CH-a6,    80    CH-53D,     32    CH-53E 

2.  Alternate  case   #1:    35    NM    and 

108    CU-He,    64    CH-53D,    3  2    CH-53E 

3.  Alternate   case   #2:    15    NH   and 

72   CH-46,    as    CH-53D,    15     CH-53E 


MIX  OF  U^UNCH  DISTANCES  AND  NUMBER  OF  HELOS:  CAAM 


Figure   5.7        Hix    of  launch   Distances  and   #    Helos:    CAAM. 
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MIX  OF  LAUNCH  DISTANCES  AND  NUMBER  OF  HELOS 


300 


TIME 


Figure    5.8        Mix   of    launch    Distances    and    #    Helos:     SHIPSHOE. 

Although  not  exactly  alike,  CAAM  and  SHIPSHOR 
tend  to  exhibit  similar  behavior  when  changing  parameters  as 
shown    within      each    graph  above.  Additionally/       comparison 

between  CAAM  and  SHIPSHOR  under  like  conditions  iemonstrates 
that  the  models  are  producing  similar  landing  profiles.  The 
next  section  will  depict  the  similarities  and  differences 
through    direct    comparison. 
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t.   CAAM  vs  SRIPSHOR:  Direct  Comparison 

The  next  set  of  graphs  shows  a  direct  comparison 
of  CAAM  and  SHIPSHOR  for  the  parameters  used  above.  A  ten 
percent  confidence  interval  around  the  CAAM  profile  provides 
a  means  of  judging  th€  performance  of  SHIPSHOR. 
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BASE  CASE:  CAAM  VS  SHIPSHOR 
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Figure   5.  9        Base   Case. 
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1.5  WING:  CAAW  VS  SHIPSHOR 
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1.0  WING:  CAAM  VS  SHIPSHOR 
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Figure    5.10        1-5    Sing   and    1.0    Wing. 
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15  NM  LAUNCH  DISTANCE!:  CAAM  VS  SHIPSHOR 


CAAM 

SHIPSHOR 

10  PERCENT  CONFIDENCE  INTERVAL 


100 


200 


JOO 


TIME  (MIN) 


35  NM  LAUNCH  DISTANCE:  CAAM  VS  SHIPSHOR 
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Figure  5.11    15  HH  launch  Distance  and  35  NM  Lamnch  Distance. 
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57  OP  DECK  SPOTS:  CAAM  VS  SHIPSHOR 
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176  OP  DECK  SPOTS:  CAAM  VS  SHtPSHOR 
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Figure  5.12    57  and  176  Operational  Deck  Spots. 
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15  NM/1.0  WING:  CAAM  VS  SHIPSHOR 
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35  NM/1.5  WING:  CAAM  VS  SHIPSHOR 
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Figure    5.13        15   NH/1.0    Wing   and   35    NM/1.0    Wing   Distance/Number    Mix. 
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The  3HIPSH0E  model,  as  exhibited  above,  tracks 
between      the  confidence      li nits      for      the    most      part.  The 

biggest  discrepencies  between  the  two  models  is  found  in  the 
first  30  or  40  minutes  of  the  landing.  CAAM  displays  a 
rapid,  almost  instantaneous,  build-up  where  SHIPSHOR  is  more 
gradual.  This   may      be   explained      by   the      manner    in      which 

SHIPSHOB  increments  the  initial  waves  at  one  minute  apart. 
EependiEg  on  deck  spot  and  helicopter  availibility,  addi- 
tional time  delays  may  be  encountered.  Thus,  tie  resulting 
build-up   ashore    is    slower. 

At  this  point  one  can  conclude  tiat  the  two 
models,  for  the  particular  data  used,  produce  siiilar 
results.  However,  as  discussed  earlier  in  this  thesis,  one 
can  net  conclude  that  SHIPSHOB  is  a  fully  valii ated  model. 
That  won't  happen  until  the  model  is  in  use  and  has  been 
modified  to  reflect  data  from  actual  operations.  There  are 
many  possible  ways  to  disclaim  the  validity  of  this  model. 
Although  CAAM  was  used  in  a  study  that  was  published,  there 
is      nothing    that      guarentees   the      validity      of  CAAM.  What 

should  be  recognized  by  the  above  analysis  is  that  the 
confidence  level  in  SHIPSHOR  has  been  raised  to  that  of 
CAAM.  Since  the  authors  of  the  study  based  tieir  conclu- 
sions en  the  output  of  CAAM,  there  is  no  reason  at  this 
point   to    discount    the   output   of    SHIPSHOR. 

C.       SENSITIVITY    ANALYSIS 

1 .      General 

The  purpose  of  sensitivity  analysis  is  c  o  determine 
the  sensitivity  of  our  results  to  the  values  of  the  parame- 
ters used-  It  normally  consists  of  a  systematic  varying  of 
the  parameters  of  interest  and  observing  the  response  of  the 
model.  If  the  responses  of  interest  vary  greatly  with 
slight   variations   or  vary   in   a   manner  not   expected   by 
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experience,  then  there  may  exist  justification  for  expendi- 
ture   cf    more   time   to   cttain    tetter   results.      [Ref.    3] 

Ihe  approach  cf  this  thesis  to  sensitivity  analysis 
is  twofold,  graphical  and  numerical.  A  graphic! 1  presenta- 
tion of  the  landing  profile  with  different  parameters  gives 
an  overall  picture  cf  the  effect  of  changing  input  values. 
The  numerical  analysis  involves  the  selection  of  an  MOE 
(measure  of  effectiveness)  .  The  changes  obser/ ed  in  that 
MOE  with  a  change  in  a  particular  value  of  input  give  a 
numerical    feel    for    the   sensitivty. 

There  are  a  ayriad  of  MOE*s  for  an  amphioious  opera- 
tion. They  depend  or  the  desires  of  the  commander,  planner, 
or  in  this  case,  the  user  of  the  model.  The  commander  may 
want  to  know  the  numter  of  troops  ashore  at  a  given  tice  in 
the  operation.  The  planner  may  want  to  know  the  total  time 
required    to   get    a   certain   number    of    troops    ashore, 

Por  the  purposes  of  this  thesis  the  HOE  will  b€  the 
number  of  personnel  ashore  at  three  hours  into  the  opera- 
tion. The  first  several  hours  of  a  landing  ars  most  crit- 
ical and  from  the  author's  experience  would  be  cf  concern 
to  a  commander  of  the  operation.  The  choice  of  a  different 
MOE  would  produce  different  sensitivity  relations  in  the 
results.  Under  one  MOE  a  comparison  of  two  sets  of  input 
parameters  may  be  greater  than  under  a  different  MOE  since 
the    profile   of    the    landing    is    a   step    function. 

The  pictoral  represntation  will  be  cutof:  at  the  200 
minute  point  to  enable  observation  of  the  first  three  hours 
in  the  landing.  The  numerical  method  will  introduce  a  term 
used    fcr   coirparison    purposes.      It    will   take  the    form    of: 

Change    in    MOE 
Sensitivity  Index    =    

Change    in    input    parameter 
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Change    in    #    personnel    ashors    at    3    hrs. 
Sensitivity  Index    =    

Change    in    input    parameter 

The  method  of  presentation  will  show  a  set  of  curves 
reflectirg  the  change  of  a  single  parameter  fron  a  tase  set 
of  parameters.  Then  a  table  will  follow  with  the  numerical 
values    of    the   sensitivity  index. 

Since  there  is  a  large  number  of  parame:ers,  there 
is  an  even  greater  number  of  combinations  of  parameters 
producing      different        sets      cf      results.  Therefore      the 

following  analysis  will  present  only  a  small  subset  of  all 
possible   ccmbinations. 

2 .      Graphics   and    Numerics 

The  base  case  for  the  sensitivity  anaL  ysis  which 
follows  is  contained  in  Table  IV  .  The  subsequent  situ- 
ations list  only  the  parameters  of  interest,  then  'the  graph 
of    the    different   cases,    followed    by    the    numerics. 
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TABLE    IV 
Input  Data    for   the   Base   Case 

Helo  Numher  of    Helicopters 

launch    Eist  CH-a6      CfHSBD      CH-53E  Attrition 

10    NK  130  63  27  -8 

Number    of    boats 
111  iCil-6  lCi3-8  icy  LST  -.ARC 

249  52  42  28  0  12 

Speed  (type  load)        Operatonal    ,    Nun ber  of 
Internal   External       Deck  Spots  LZl^ 

120  kts    100  kts  100  2 

Beach  to  LZ        Size  of  Landing       LVT  Launch 
Distance  Zone  dis tance 

5  NM  48  helos  5  NM 

Number  of  beaches       Beach  Size 
one  6  LVTs 
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Helicc£t€r    Time    Factors 

1.  Base   case:    Helicopter    time    factors    table 

2.  Alternate   #1:    load    time   6    minutes 

3.  Alternate    #2:    load   time    10    minutes 

4.  Alternate    #3:    load   time    15   minutes 

5.  Alternate   #4:    Eouble    helo    time   factors    tao le 


HELO  TIME  FACTORS 


200 


Figure  5-  14        Helicopter   Time   Factors- 
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TABLE  V 
Sensitivity  Index:  Helicopter  Time  Factiors 


Parameter 

Base: 

Alternate  #  1 

Alternate  #2 

Alternate  #3 

Alternate  #U 


Number  personnel  ashore  (3  h^s.) 

68  9a 
7110 
6542 
64  04 
6266 


Change  in  Parametei 
(ir  minutes) 


Base   -  Alt  #2 

Alt  #1  -  Alt  #2 

Alt  #2  -  Alt  #3 

Base   -  Alt  *3 


4 
10 


Change  in  MOE 
(£  i^oo^s  ashore) 

352 
563 
138 
490 


Sei s.  Index 
(MP  E/para.) 

-71 

-  142 
-28 
-49 
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Eeach  size 

1.  Base  case:  6  LVTs 

2.  Alternate  #1:  2  LVTs 

3.  Alternate  #2:  U  LVTs 

4.  Alternate  #3:  8  LVTs 

5.  Alternate  #U:  10  LVTs 
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Figare  5.15   Beach  Size. 
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TABLE  71 
Sensitivity  Index:  Beach  Size 


Parameter 

Base: 

Alternate  # 1 

Alternate  #2 

Alternate  #3 

Alternate  #U 


Number  personnel  ashore  (3  h^s.) 

6894 
56  04 
6534 
6894 
7097 


Change  in  Parameter 
(i£  IVTs) 

Base   -   Alt  #4:  2 

Alt  #1  -  Alt  #2:  2 

Alt  #2  -  Alt  #4:  6 

Alt  #1  -  Alt  #4:  8 

Alt  #1  -  Alt  #3:  6 


Change  in  MOE 
(i  troops  ashore) 

360 

930 

563 
1493 
1290 


Sei s.  Index 
(MP  S/para.) 

f  180 
+  465 
+  94 
I-  187 
+  215 
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ii^nJii33    2oii€   Size 


1 .  Base   case  : 

2.  Alternate    #1: 

3.  Alternate   #2: 

4.  Alternate    #3: 

5.  Alternate   #4: 


^S   CH-46  Helicopters 

6  CH-a6  Helicopters 

a  CH-a6  Helicopters 

3  CH-46  Helicopters 

2  CH-U6  Helicopters 
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Figure  5.16    Landing  Zone  Size. 
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TABLE  VII 
Sensitivity  Index:  Landing  Zone  Size 


Parameter 

Base: 

Alternate  # 1: 

Alternate  #2: 

Alternate  #3: 

Alternate  #4: 


Number  personnel  ashore  (3  h^s- ) 

6891 
6532 
5866 
5650 
5495 


Change  in  Parameter 
(in  CH-4  6S) 

Base   -   Alt  #1:  H2 

Alt  #1  -  Alt  #2:  2 

Alt  #2  -  Alt  #3:  1 

Alt  #3  -  Alt  #4:  1 

Alt  #1  -  Alt  #3:  3 

Alt  #1  -  Alt  #4:  4 

Alt  #2  -  Alt  #4:  2 


Change  in 

MOE 

Sei s.  Index 

(#  troops  as 

.hore) 

(MOE/para.) 

362 

-9 

666 

-  333 

216 

-216 

155 

-  155 

882 

-294 

1037 

-  260 

371 

-186 
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Cperatiocal   Deck   S£ots 

1.  Base   case:  100 

2.  Alternate    #1:  176 

3.  Alternate  #2:  114 
a.  Alternate  #3:  60 
5.  Alternate    #4:  20 


OPERATIONAL  DECK  SPOTS 
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Figure  5-17   Operational  Deck  Spots. 
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TABLE  7III 
Sensitivity  Index:  Operational  Deck  Spots 


Parameter 

Base: 

Alternate  #1 
Alternate  #2 
Alternate  #3 
Alternate  #a 


Kumber  personnel  ashore  (3  h^s.) 

6894 
68  94 
6894 
64  04 
5866 


Change  in  Parameter 
(is  i^ck  spots) 


Change  in  nOE 
(£  trgggs  ashore) 


Base 

Alt 

#1; 

.   76 

0 

Alt  #1  - 

Alt 

#2, 

:   62 

0 

Alt  #2  - 

Alt 

#3 

:   54 

490 

Alt  #3  - 

Alt 

#4: 

:   40 

538 

Alt  #1  - 

Alt 

#3 

:  116 

882 

Alt  #1  - 

Alt 

#4 

:  156 

1037 

Alt  #2  - 

Alt 

#4 

:   94 

371 

Sei  s.  Index 

0 

0 

-10 

-11 

-7 
-6 

-4 
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Nuibcr  of  6  Helicopter  Size  d  Landing  Zones 

1,  Case  #1:  6  helicopter  size  /  1  landing  zones 

2.  Case  #2:  6  helicopter  size  /  2  landing  zones 
3-  Case  #3:  6  helicopter  size  /  3  landing  zones 
4.  Case  #4:  6  helicopter  size  /  4  landing  zones 
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Figure  5.18    lumber  of  6  Helicopter  Sized  Landing  Zones. 
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TABLE  IX 
Sensitivity  Index:  #  of  6  Helo  Sized  LZs 


Parameter 

Case  #1 

Case  12 

Case  #3 

Case  114 


flumber    personnel    ashore    (3   hL^.) 

6266 
63  94 
6532 
6532 


Change   in  Parameter 

(in  I  IZs) 

Case    #1  -  Case  #2:    1 

Case    S2  -  Case  #3 :    1 

Case    #3  -  Case  #4:    1 

Case    #1  -  Case  #3:    2 

Case    II  -  Case  #4 :    3 

Case    #2  -  Case  #4:    2 


Change   in    MOE 
(£    troops   ashore) 

128 
138 

0 
266 
266 
138 


Sei s.    Index 

+  128 
+  138 

0 
+  133 

+  89 
+  69 
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Number  of  ii  Helicopter    Size  d   landincf    Zones 

1.  Case  #1:    4    helicopter   size  /    1    landing   zones 

2.  Case  #2:    4    helicopter   size   /   2    landing    zoq es 

3.  Case  #3:    4   helicopter   size  /    3    landing   zones 
U.  Case  #4:    4    helicopter   size   /   4    landing    zones 


SIZE  AND  NUMBER  OF  U\NDING  ZONES 
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Figure  5.19   Humber  of  4  Helicopter  Sized  Landing  Zones. 
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TABLE  X 
Sensitivity  Index:  #  of  4  Helo  Si2ed  L£s 


Parameter 

Case  #1 

Case  #2 

Case  #3 

Case  #U 


Number  personnel  ashore  (  3  h ;_ s . ) 

5866 
5866 
6756 
6756 


Change  in  Parameter 

(in  1  iZs) 

Case  #1  -  Case  #2:  1 

Case  #2  -  Case  #3:  1 

Case  #3  -  Case  #4:  1 

Case  #1  -  Case  #3:  2 

Case  #1  -  Case  #4:  3 

Case  #2  -  Case  #4:  2 


Change  in  iMOE 
(i  l£222s  ashore) 

0 

8  90 

0 
890 
890 
890 


Sei  s.  Index 
(^OE/para.) 

0 
+  890 

0 
+  445 
+  297 
+  445 
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Heli cppt €r  launch  Distance 

1 .  Base  case :  10  NM 

2.  Alternate   #1:  20    NM 

3.  Alternate  #2:  30  NM 
U.  Alternate  #3:  40  NM 
5.  Alternate   #4;  50    NM 
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Figure  5.20   Helicopter  Launch  Distance. 
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TABLE  XI 

Sensitivity 

Index: 

Helicopter  Launch  Distance 

Parameter 

Number  £ersonnel  ashore  (3  h:s.) 

Base: 

• 

6894 

Alternate  #1: 

6532 

Altercate  #2: 

64  04 

Alternate  #3- 

6266 

Alternate  #4: 

6004 

Change  in  Pa] 

cameter 

Change  in  MOE      Sei s.  Index 

(in  NM) 

(£  %.L£22§.   ^shore)     (fi21Z2^£^') 

Base  -   Alt 

#1: 

10 

362               -37 

Alt  #1  -  Alt 

#2: 

10 

128               -13 

Alt  #2  -  Alt 

#3; 

10 

138                -14 

Alt  #3  -  Alt 

#4: 

40 

538               -11 

Alt  #1  -  Alt 

#3: 

20 

266               -14 

Alt  #1  -  Alt 

#4: 

30 

528               -18 

Alt  #2  -  Alt 

#4: 

20 

400               -20 

Base    -  Alt 

#2: 

20 

490                -25 

Base    -  Alt 

#3: 

30 

628               -21 

Base    -  Alt 

#4: 

40 

890               -23 
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Number   of   Helicopters 


1. 
2. 
3. 
4. 
5. 


Base    case:  130    CH-46,  63  CH-53D,  27  CH-  53E 

Alternate    #1:     156    Cn-U6,  80  CH-53D,  32  CH-53E 

Alternate    #2:     108   CH-Ue,  64  CH-53D^  32  CH- 53E 

80    CH-46,  40  CH-53D,  15  CH- 53E 

72   CH-46,  48  CH-53D,  16  CH-53E 


Alternate   #3: 
Alternate   #4: 


NUMBERS  or  HELICOPTERS 


200 


Figure    5.21        Humber   of   Helicopters. 
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TABLE  XII 
Sensitivity  Index:  Number  of  Helicopters 


Parameter 

Base: 

Altercate  #1 

Altercate  #2 

Alternate  #3 

Alternate  #U 


Number  personnel  ashore  (3  hr_s. ) 

6894 
71  10 
6670 
6007 
6266 


Change  in  Parameter     Change  in  MOE      Sei s.  Index 
(no  unit)  (#  troops  ashore)     (MP  E/para.) 


Base   - 

Alt 

#1: 

Alt  #1  - 

Alt 

#2: 

Alt  #2  - 

Alt 

#3: 

Alt  #3  - 

Alt 

#4: 

Alt  #1  - 

Alt 

#3: 

Alt  #1  - 

Alt 

#4: 

Alt  #2  - 

Alt 

#4: 

Base    - 

Alt 

#2: 

Base 

Alt 

#3: 

Base 

Alt 

#4: 

+  216 

-224 
-663 
+  259 
-1103 
-844 
-404 
-224 
-887 
-628 


N/A 
N/A 
N/A 
N/A 
N/A 
N/A 
N/A 
N/A 
N/A 
N/A 


Note:    Since    there    vjere   three   parameters    changj  d    at 
one   time  during   this    run.    no    unit    could    be 
devised   for    the   denominator    of    the    sensitivity 
index.       However,    an    idea   of    the   model's    response 
can  be    obtained    from    the   change    in   MOE    values. 
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Numter   of   CH-46    Helicopters 


1. 

Base   case 

130 

2. 

Alternate 

#1; 

108 

3. 

Alternate 

#2: 

72 

4. 

Alternate 

#3: 

54 

5. 

Alternate 
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36 
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Figure    5.22        Huraber   of   CH-46    Helicopters. 
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TABLE  XIII 
Sensitivity  Index:  Nuiaber  of  CH-U6  Helicopters 


Parameter 

Base: 

Alternate  # 1 

Alternate  #2 

Alternate  #3 

Alternate  #U 


Number  £ersonnel  ashore  (3  h^s- ) 

689U 
6670 
6670 
5987 
5599 


Change  in  Parameter 
(iD  I  of  CH-a6s) 

Base  -  Alt  #1 

Alt  #1  -  Alt  #2, 

Alt  #2  -  Alt  #3 

Alt  #3  -  Alt  #4, 

Alt  #1  -  Alt  #3 

Alt  #1  -  Alt  #4 

Alt  #2  -  Alt  #4 

Base  -  Alt  #2 

Base  -  Alt  #3 

Base  -  Alt  #4 


Change  in  MOE 
(£  troops  ashore) 


22 

224 

36 

0 

18 

683 

18 

298 

54 

683 

72 

1071 

36 

1071 

58 

224 

76 

9  07 

94 

1295 

Sei s.  Index 
(MP  E/para.)  „ 

-11 
0 

-38 
-17 
-13 
-15 
-30 
-4 
-12 
-14 
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Ml^er   of   Beaches 

1 .  B  as  €   case:  1 

2.  Alternate   #1:  2 

3.  Alternate    #2:  3 
a.      Alternate   #3:  4 
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Figure    5.23        Nu»ber   of    Beaches. 
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TABLE  XIV 
Sensitivity  Index:  Number  of  Beaches 


Parameter 

Base : 

Alternate  #1 

Alternate  #2 

Alternate  #3 


Number  £ersonnel  ashore  (3  hL§* ) 

6894 
6894 
7097 
7097 


Chang€  in  Parameter 
(iil  beaches) 


Change  in  MOE 
(i  iico^s  ashore] 

0 


Sei s.  Index 
(M2.E/£ara.) 


Alt  #1  -  Alt 

#2: 

1 

203 

+  203 

Alt  #2  -  Alt 

#3: 

1 

0 

0 

Alt  #1  -  Alt 

#3: 

2 

203 

+  102 

Base    -  Alt 

#2: 

2 

203 

+  102 

Base    -  Alt 

#3: 

3 

203 

+  68 
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MlL^iu^    Craft   Launch  Distance 

1  .      Base   case:  2    NM 

2.  Alternate    #1:  6    NM 

3.  Alternate    #2:  8    NH 

4.  Alternate  #3:  10    NM 
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figure  5-24    Landing  Craft  Launch  Distamce. 
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TABLE  XY 
Sensitivity  Index:  laudirg  Craft  Launch  Distance 


Parameter 

Base : 

Alternate  # 1 : 

Alternate  #2: 

Alternate  #3: 


Number  £ersonnel  ashore  (3  hr.s,) 

6894 
6894 
6534 
6244 


Change  in  Parameter 
(in  NM) 

Ease   -   Alt  #1:  4 

Alt  #1  -  Alt  #2:  2 

Alt  #2  -  Alt  #3;  2 

Alt  #1  -  Alt  #3:  6 

Ease   -  Alt  #2:  6 

Base   -  Alt  #3:  8 


Change  in  'AOZ 

0 
360 
290 
650 
360 
650 


Seis.  Index 
(M3  E/para.) 

0 
180 
145 
109 

60 

82 
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Tvith  the  abcvG  type  analysis,  one  coi  Id  readily 
cbserv€  how  the  model  reacts  under  different  parameters. 
The  sensitivity  index  is  a  value  which  provides  a  weighting 
scheme  in  order  to  rate  the  effects  of  going  fron  one  set  of 
parameters    to   another.  The    sign   of    the      sensitivity    index 

indicates  how  the  model  responds,  A  positive  sign  indicates 
improvement  in  the  performance  of  the  landing  plan  when 
going   from      one    set    of      parameters    to    another.  A    negative 

sign  would  indicate  a  decrease  in  the  !10E,  thus  the  plan  is 
not    inprcving. 

The  sensitivity  analysis  was  conducted  utilizing  a 
set  of  base  conditions  from  which  a  parameter  was  changed  to 
observe  the  effect.  Table  XVI  lists  the  parameters  altered 
which  had  the  greatest  effect  within  each  different  set  of 
parameters.  For  instance,  within  the  set  of  altered  parame- 
ters for  beach  size,  the  greatest  effect  occurred  when  the 
size  of  the  beach  was  increased  from  2  LVTs  to  4  L7Ts  (465 
personnel  ashore  /  minute  load  time) .  Thus,  ti  e  effect  of 
making  a  change  decreased  as  the  size  of  the  beach  increased 
beyond    a      4-LVT    sized   beach.  The   other      paramsters    listed 

follow    similar    logic. 

The  parameters  in  Table  XVI  are  listed  in  order  of 
increasing  sensitivity  index.  This  indicates  :  he  relative 
impact  of  changing  a  parameter  by  one  unit  as  compared  to 
the  other  altered  parameters.  Thus,  the  least  sensitive 
parameter  is  the  change  of  operational  deck  spots  from  114 
to  60  (11  personnel  ashore  /  operational  deck  spot).  The 
greatest  sensitive  parameter  is  found  by  increasing  the 
number  of  4-helo  sized  landing  zones  from  2  to  3  (890 
personnel   ashore  /    4-helo   sized   LZ) . 


TABLE    X7I 
Altered  Parameters   Yielding   Greatest    Effect    in   MOE 

Absolute   Vi lue    of 
Sensitivity    Index 
ChJSS^   in   Parameter  (PA=Personnel    ashore) 

Of    deck    spots:    11^   to   60  11  PA   /   da ck   spot 

Helo    launch    dis.:     10    to    20    NH  37  PA   /  N!l 

Number   CH-46s:    72    to    54  38  PA   /  c:i-46 

#  of    6-helo    sized   IZs:    2    to  3                138  PA   /  L2 
Tiire    factors:    6    to    10    min-  146  PA   /   min. 
Boat    launch    dis:    6   to   8    NM  180  PA   /   N1 
Number    beaches:    2    to   3  203  PA   /  beach 
LZ    size:    6    to    4    CH-46s  333  PA    /   Ci-46 
Beach   size:    2    to    4  LVTs  465  PA   /  LVT 

#  of    4-helo    sized    IZs:    2    to  3                890  PA   /  L2 
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VI.    MODEL    DOCOMENTATION 

A  key  tc  usatility  of  any  computer  software  is  documen- 
taticn.  [Bef.  10]-  The  general  community  of  con  puter  irodel 
developers  and  model  researchers  has  not  been  overly 
concerned  vith  issues  of  model  documentation.  This  has 
severly  handicapped  the  utility  and  acceptence  of  many  valid 
models,  and  also,  allowed  some  invalid  models  to  te  used. 
However,  a  subgroup  of  computer  model  developers,  simulation 
modelers,  have  recognized  that  good  documentation  aids  in 
establishing  the  validity  of  simulation  models  and  in 
increasing    usage  rates   [Eef.    11:    p. 21] 

Since  a  model's  developers  are  frequently  not  the 
models' s  ultimate  user,  concise  documentaion  is  essential 
for  effective  model  use.  An  article  by  Louis  Fried  recom- 
mends that  nodel  documentation  should  at  a  minimum  provide 
the  user  and  analyst  views  [Eef-  12].  Proper  documentaion 
involves  the  use  of  four  types  of  manuals  which  provide 
information  for  four  different  classes  of  audiences.  These 
consist  cf  managers  (decision  makers),  users,  analysts,  and 
programmers.  Each  manual  should  include  some  CDmmon  topics 
such  as  a  table  of  contents  which  can  be  expanded  upcn  or 
modified  according  tc  requirements  of  the  specific  model. 
Terms  of  each  manual  should  be  directed  towards  the  audience 
of  interest.  The  following  will  briefly  sub marize  the 
thrust    of   the   four    types  of    manuals. 

In  the  decision- maker' s  environment,  the  main  goal  of  a 
manual  is  to  assist  managers  to  make  decisions.  To  accom- 
plish this  end,  the  manual  must  describe  the  raDdel  and  its 
applications  to  managers  (those  who  sponsored  the  model  and 
those  who  nay  be  interested  in  a  developed  model) .  The 
manual    should      provide   managers    with      sufficient    information 
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to  permit  them  to  accurately  assess  the  model  input  require- 
ments (tiire,  money,  and  other  resources),  available  outputs, 
and  the  accuracy  and  precision  of  the  results.  Decision 
makers  can  use  this  manual  to  justify  the  employment  of  the 
model   and    in  evaluation   of    the   results.      [ Ref .    13:    p. 2] 

A  user  is  interested  mainly  in  deriving  results  from  a 
model  for  specific  applications  .  The  user's  manual  must 
contain  sufficient  information  to  allow  the  users  to  employ 
the  model  intelligently  and  accurately.  The  user,  although 
occasionally  unfamiliar  with  computer  techniques,  must  be 
informed  of  the  model's  logical  structure,  general  simula- 
tion approach,  and  any  assumptions  and  limitaions  affecting 
the  model's  applicability.  It  is  not  necessary  to  have 
details  of  the  analysis  or  programming  beyond  the  prepara- 
tion of  input  data  and  interpretaion  of  model  results. 
[Ref,    13:    p. 2] 

The  primary  purpose  of  a  programmer's  mai ual  is  for 
maintenance     and      modification      of        the      model.  Since      a 

programmer  must  correct  any  errors  discovered  luring  model 
usage  and  possibly  convert  the  model  for  use  on  another 
computer,  the  guidance  provided  by  the  manual  should  be  on 
two  levels.  The  micro  level  should  contain  details  of  what 
happens  in  each  routine  thus  providing  facts  about  what 
occurs  in  each  of  the  parts  of  the  model  on  an  individual 
basis.  The  macro  level  gives  an  overall  discussion  of  the 
processing  techniques  used  and  their  relationships.  Thus, 
it  provides  a  grasp  of  how  everything  is  tied  together  high- 
lighting  areas    vulnerable  to   change.      [Ref.    11:    p. 3] 

The  analysts  manual  is  the  source  document  for  an 
analyst  who  is  primarily  interested  in  the  analytical  tech- 
niques and  algorithms  used  in  a  model.  This  manual  should 
explain  the  equations  used  in  the  model  and  the  methods  used 
for  verification  and  validation.  It  is  not  necessary  to 
include  details  such  as  input  and  output  formats  or  program- 
ming   details  involving   language   syntax.      [Ref.    13:    p. 3] 
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Ih€  decision  on  which  types  of  manuals  are  required 
depends  upon  the  individual  model  ani  should  be  made  on  a 
case-by-case  basis.  Although  the  main  audience  for  the 
ship-to-shore  model  will  be  decision- maker s  and  jsers,  there 
exists  the  need  for  the  programmer's  manual  as  well.  The 
analyst's  manual  would  not  offer  anything  different  from  the 
ether  three,  therefore  it  was  deemed  unnecessary.  The  docu- 
mentaticn  for  this  model  will  be  of  a  combined  format  with 
sections   directed   at    the   respective  audiences. 

Each  section  will  be  based  on  recommended  outlines  found 
in  [Eef.  13]  with  whatever  modifications  are  necessary.  The 
sections  will  be  self-contained  and  pertain  to  each  of  the 
three  classes  of  audience  to  facilitate  ease  of  use.  The 
entire  model  documentation  is  found  in  appendices  A  through 
F   and    can    be  removed    as   a   separate    unit. 
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VII.  COHCLO SIGNS 

1.   SOMaSRY 

The  proper  construction  of  a  simulation  n odel  is  a 
formidible    task.  It   involves    many      facets    other      than    the 

writing  of  code  which  is  supposed  to  reflect  a  real  life 
system.  There  are  numerous  activities  required  prior  to  the 
programiiing  stage  which  are  vastly  more  important. 
Definition  of  the  prctlem  is  probably  the  most  critical  step 
in  the  process  and  should  involve  a  great  deal  of  effort. 
All  too  often  a  piece  of  software  is  developed  in  a  vacuum 
without  regard  to  the  user  and  the  actual  problem  which  is 
to  be  solved.  This  tends  to  reduce  the  crediblility  of 
simulations   and    their   usage. 

This  thesis  attempted  to  demonstrate  the  pcoper  proce- 
dure in  the  construction  of  a  model.  Although,  the  model 
was  already  in  existerce,  the  procedure  outlined  in  chapter 
II  was  employed  as  much  as  possible.  In  some  respects  it 
was  more  difficult  to  start  with  a  nearly  finished  product, 
learn  the  code,  dissect  the  logic,  flow  chart  the  model,  and 
then  work  forward  through  the  model  builiing  steps. 
However,  the  primary  purpose  of  this  research  was  to 
complete  the  amphibious  ship-to-shore  model  for  use  on  a 
microcomputer.  To  accomplish  that  end  it  was  necessary  to 
start    with    the    existing    simulation. 

Based  on  the  material  presented  in  this  thssis,  it  is 
felt  by  the  author  that  SHIPSHOR  is  basically  a  good  repre- 
sentation of  the  ship-to- shore  movement  of  an  amphibious 
landing.  From  the  results  of  the  validation  and  sensitivity 
analysis  and  in  conjunction  with  the  author's  experience,  it 
is   concluded   that    SHIPSHOR    has    a    great    deal   of   potential    and 
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is  a  viatl€  decision  aid.  It  also  has  room  f 3  r  expar.sion 
and  continued  improvements.  The  next  section  will  address 
the    areas   for   future   enhancements    and   applicability. 

B.       FUTUEE    ENHANCEMEB1S 

As  discussed  in  the  beginning  of  this  thesis,  lEodel 
development  is  a  continuous  process.  During  the  conduct  of 
research  and  analysis  of  SHIPSHOE,  many  areas  for  possible 
future  enhancements  were  realized.  Some  of  the  more  promi- 
nant    ones   are: 

•  More  sensitivity  analysis 

•  Improve  any   area  discovered   daring  additional   sensi- 
tivity analysis 

•  Elinination  of   some  of   the  limitations   of  the   model 
that  were  encountered 

•  Imploy  stochastic  modelling  of  the  various  time  factors 
which  are  currently  expected  values 

•  Use  the  Basic   Compiler  to  improve  the   spes d  of  execu- 
tion of  the  model 

•  Add  a  stochastic  attrition  subroutine  option 

•  Automate   the  wave  and  serial   assignment  table   wnich 
forms  the  basis  for  the  landing  plan  file 

C-   FOTDEE  APPLICATICBS 

The  main  reason  for  the  development  of  SHIP3H0E  was  for 
use  in  a  study  which  was  to  assist  procurement  planning. 
There  was  nothing  specific  planned  beyond  that  objective. 
Currently^  most  U.S.  models  are  designed  for  aiding  analysis 
involved  in  hardware  procurement  and  force  siz2  determina- 
tion. However,  there  is  a  broad  range  of  uses  for  simula- 
tions which  have  teen  overlooked  by  U.S.  military 
organizations. 
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The  Soviets  have  for  ma cy  years  utilized  moi els  as  part 
of  an  integrated  system  of  decision  aids  for  the  commander. 
SHIPSHOE  is  a  type  of  model  which  could  lend  insight  into 
operational  planning  for  the  commander  and  his  staff.  Once 
the  model  has  gained  the  necessary  confidence  of  the  poten- 
tial users,  it  could  be  used  to  help  a  commander  make  deci- 
sions regarding  various  options  he  may  be  considering. 
Choices  such  as  the  number  of  LZs,  size  of  LZs,  number  of 
teacheS/  number  of  helicopters,  etc.  could  be  run  through 
the  ttodel  to  observe  the  effects  on  the  MOE  of  choice. 
Then,  based  on  those  results,  the  commander  cai  make  deci- 
sions  for    the   landing. 

Another  possible  application  is  related  to  predictive 
planning.  The  model  could  be  used  as  a  gauge  :o  determine 
if  the  landing  is  proceeding  as  desired.  If  the  actual 
landing  is  not  progressing  according  to  the  predictions  of 
the  model,  the  commander  could  make  adjustments  to  get  back 
on  his  schedule.  Of  course,  any  use  of  this  madel  will  be 
depend  on  its  reputation  and  credibility.  A  good  reputation 
will  only  be  formed  after  continued  validation  and 
modification. 
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APPENDIX    A 
GLOSSARY    OF    ACRONYHS 

Acronym  Definition 

CH-46:  A  twin-turt)ine  powered,  tandem  rotor  assault  trans- 
port helicopter.  -  It  has  a  cruising  speed  of  120 
kts.  Under  ideal  conditions  it  has  a  max  paylcad 
of      4280   lbs.  The      max      number      of      troops       (the 

primary  paylcad)    it   carries   is    17. 

CH-53E;  A  twin- turbine  powered,  single  main  r3 tor  assault 
cargo  helicopter.  It  has  a  cruising  speed  of  150 
kts.  Under  ideal  conditions  it  has  a  max  paylcad 
of  1376  1  lbs.  The  max  number  of  troops  it  carries 
is   57.       The    normal    payload   of   the    CH-53    is    cargo. 

CH-53E:  Same  characteristics  as  the  CH-53D  with  the  excep- 
tion of  the  payload.  The  max  payload  of  this 
aircraft   is    16000    lbs. 

lARC:  A    wheeled    amphibious    vehicle.      It    can  cirry    approx- 

imately ten  troops.  The  primary  mission  of  this 
vehicle  is  for  use  on  the  beach  by  the  unit  that 
controls    the   beach   organization. 

ICM-6:  Landing  craft,  mechanized.  This  is  a  flat  bottomed 
boat  used  to  transport  vehicles  and  troops  to 
shore.       The    6    designates    the    size    of    th2    craft. 

LCM-8:  Same  type  of  landing  craft  as  the  LCM-6  with  the 
exception  of  the  size.  The  8  indicates  that  it  is 
a  larger  craft  than  the  LCM-6.  It  can  carry  a  tank 
where    the    LCt!-6   cannot. 
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ICO:  Landing  craft,  utility.  Carried  on  larger  amphib- 
ious ships  although  it  is  a  self  contained  unit. 
This  is  the  largest  of  the  flat-bottomed  landing 
craft  used  to  discharge  troops  and  vehicles  ashore. 
It  can  carry  two  tanks. 

IHA:  Helicopter  assault  ship.  It  has  a  helicopter 
flight  deck  as  well  as  a  loading  dock  for  landing 
craft.  •  The  ship  actually  floods  its  well  deck  in 
order  to  launch  the  landing  craft.  It  displaces 
about  30000  tons  and  can  carry  2000  combat  troops. 
It  is  approximately  the  size  of  a  WWII  aircraft 
carrier. 

IPD:  Landing  ship  with  internal  loading  docks  for 
launching  landing  craft.  It  has  a  small  two  spot 
flight  deck  for  helicopter  operations,  however  does 
not  carry  its  own  aircraft.  It  displaces  17000 
tons  and  can  carry  900  troops. 

LPH:  Helicopter  assault  ship  without  loading  docks.  It 
has  extensive  medical  facilities.  Sin:;  e  it  has  no 
loading  docks,  it  can  not  carry  heavy  equipment. 
It  displaces  18000  tons  and  can  carry  2  000  troops. 
The  first  of  the  class  was  actually  a  converted 
WWII  aircraft  carrier. 

LSD:  Landing  ship  with  internal  loading  docks  for 
landing  craft.  It  has  a  small  one  spot  flight  deck 
for  resupply.  It  displaces  about  1303  0  tons  and 
can  carry  350  troops. 

1ST:  Landing  ship,  tank.  Originally  designed  in  WWII, 
it  can  land  tanks  and  other  vehicles  directly  onto 
the  beach  through  a  bow  ramp.  It  has  a  small  one 
spot  flight  deck  for  resupply.  LSTs  displace  8200 
tons  and  can  carry  about  350  troops. 
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IVT, 


landing  vehicle,  tracked.  This  is  trulf  an  ainphit- 
icus  landing  craft  that  has  tracks  for  movement  off 
the  beach.  The  current  model,  LVTP-7,  is  designed 
for  carrying  25  troofs  from  the  amphibious  ships 
into  land  combat.  It  is  completely  enclosed  to 
provide  all-around  armor  protection  from  shrapnel 
and  small    arms.  "^ 


■'The      above      definintions      are      found      in      [Bef.    1]      and 
[Ref.    7]. 
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B.  IHTBCDDCTIOH 

The  ship-to-shore  model  was  initiated  by  ;  he  Analysis 
Support  Branch  of  the  Marine  Corps  Development  Center, 
Cuantico,  Va.  in  support  of  the  Amphibious  Lift  Study.  The 
original  model  was  delivered  in  an  unusable  form  which 
prompted    revision  by    the   author.  The    purpose   Df    the    irodel 

is    to    siEulate      the    ocvement   of    units    of      various    sizes   from 
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amphitious      shipping    to      shore      via      surface   and      helicopter 
transportation. 

The  purpose  of  the  decision- maker ' s  manual  Ls  to  commu- 
nicate to  managers  the  capatilities  of  the  ship-to-shore 
model.  To  attain  this,  the  contents  of  this  section  will 
describe  the  model,  its  development  and  experimentation,  and 
current    applications. 

C.       MCDEl    DESCBIPTION 
1 .      Capabilities 

The  model,  called  SHIPSHOR,  can  be  used  :o  determine 
tuild-up  of  troops  and  firepower  ashore  versus  time.  It  can 
also  te  used  to  compare  the  effects  of  changes  in  the  nuraher 
and  size  of  landing  zones  (beaches),  numbers  of  carriers, 
numbers  of  amphibious  ships,  distances  from  launch,  deck 
spot  utilization,  and  attrition.  These  capabilities  of  the 
model  are  concerned  with  utilization  in  the  planning  of 
operations  as  well  as  use  during  the  execution  of  the  plan. 
The  model  accomplishes  the  above  tasks  through  a  series  of 
subroutines  which  calculate  the  time  for  certain  events  to 
occur,  then  executes  those  events  sequentially,  (See  Figure 
E.I)  A  detailed  explanation  of  the  subroutines  3  an  be  found 
in   the   piogrammer' s    section. 

The  ship-to-shore  model  can  be  utilized  in  studies 
involving  amphibious  operations  to  determine  opti  mum  carrier 
number,  launch  distance  mixtures,  deck  spot  utilization, 
etc.  The  model  could  also  be  employed  in  a  planning  mode  to 
predict  approximate  troop  build-up  ashore  given  the  unit, 
distance  of  launch,  number  of  carriers,  number  of  deck 
spots,  etc.  This  could  be  useful  in  planning  an  operation 
as    well    as    gauging    the   progress    of    the   landing. 
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Figure  B, 1    Flow  Chart  of  Model  Routines. 
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2.   Input/Output  Classes 

Input  data  is  broken  down  into  three  categories. 
The  largest  group  of  data  is  found  in  the  landin;  plan  file. 
The  file  requires  the  manual  construction  of  serials  and 
assault  waves  in  a  specific  format.  The  format  is  found  in 
the  'help'  file  (Appendix  E)  and  the  user's  manui 1  (Appendix 
B) .   An  example  of  tie  file  is  listed  in  Figure  B.2  . 
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Figure  B.2  Example  of  Landing  Plan- 
Two  other  data  sources  are  needed  to  run  the  model. 
One  file  contains  parameter  values  which  are  not  subject  to 
change  and  is  called  T-1.DAT.  See  'help'  file  for  the 
format.  Figure  B. 3  is  a  listing  of  that  file.  A  helicopter 
time  factors  table  which  provides  expected  times  for  various 
evolutions  is  an  example  of  the  type  of  data  fDund  in  this 
file. 

The  last  data  source  is  found  within  the  program 
itself  as  either  a  line  of  code  or  as  an  interactive  query. 
This  data  is  of  the  type  that  may  be  changed  easily  for 
various  types  of  analysis.   See  'help'  file  and  Figure  E. 4  . 
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c:tyfe  t-i.dat 

9.  7.  4, 9, 9.  7,  2.9.9,7.2.=?, 7.  4.  4.  7, 7, 4, 2. 7,  7,. 4, 2. 7,  1,  1.  1.  1,  1.  1.  1.  1.  1.  1.  1,  1.2.  1.  1,2. 

1.1.1.1.1.1.1.1,1.1.1,1.0,0.0,0,0,0,0.0 

0,0.0, 1, 1,4,4,4,4. 1, 1. 1,5,3. 10.4.4.4.4,4.4. 1 , 1 , 1 

120, 100, 100,8.9, 12,11 ,20,20 

1,  1  ,  1  ,  1,  1,  1,4.  10,  10,  10,  10,  10.  1  ,  1  .  1,  1.  1,  1.0.  10.  10.  10.  10.  10,1:1.5.5.  5.  5.  5.  1.2,2.2,2. 

2,1.1,1.1,1,1,1.1.1.1.1.1 


Figure  B. 3    Example  of  Data  File  T-1.DAT. 


RUN 

i   OF  SERIAL  LINES  OF  DATA  FOR  SCHED,ON-CALL,  i  N0N3CHED  HELO  THEN  3URFflCE:69,23,0,60,0,0 

Sst'jp  19907 

I  OF  SHIPS  BY  TYPE  !LHA,LPH,LSD,LPD,LST) :5,7, 1,9, 1 

1ST  TURNAROUND  SCHED  HELO  WAVE: 14 

!  OF  BEACHES  AND  I  OF  LANDING  ZONES: 4., 7 

HELO  LAUNCH  DISTANCE,  BOAT  LAUNCH  DISTANCE,  AND  SHORE  TO  L2  DISTANCE: 50, 2, 5 

LHOUR  flND.HHQUR:0170C0,0 

I  OF  aAVES  IN  ORDER  SCHED,  ON-CALL,  NONSCHED  HELO  THEN  SURFACE: 23, 10,0, 19,0,0 

i   OF  HELOS  THAT  CAN  OCCUPY  AN  11   AT  ANY  ONE  TIME  BY  TYPE  (CH46,  CH53D,  CH53E,  UHIN) :  10,3,3, 14 

*  OF  CARRIERS  BY  TYPE  (CH46, CH53D,CH53E, UHIN, LVT, LCRS, LCM9, LCU, LST, LARC) : 156,30,32,0,249,52,3942,23,0, 12 

i   OF  SURFACE  CRAFT  THAT  CAN  OCCUPY  A  BEACH  AT  ANY  ONE  TIME  BY  TYPE  (LVT,LC116,LCM3,LCU,LST,LARC)  :6,5,4,2, 1,4 

INPUT  DATA  FILE  HAriE:LPE.DAT 
OUTPUT  FILE  Nfil1E:TESTI 


Figure    B.4        Example  of    Interactive/Line   Input    Data. 

!Ihe  output  of  the  model  can  be  raodifiel  to  reflect 
the  on-going  utilization.  For  exmaple,  if  the  HOE  is 
build-up  ashore,  the  output  could  be  personnel  and  firepower 
ashore  at  given  times.  This  data  could  be  printed  or  sent 
to  a  file  for  use  in  a  graphics  program  to  plot  the 
fcuild-up.       See    Figure   B.5   . 

96 


PERSONNEL  BUILDUP  ASHORE 

HELD  LAUNCH  DISTANCE:. 50  NM 

o 
o 
o 

00 

^-^^'^ 

PERSONNEL 
4000                  6000 

-  r 

o 

o 
o 

CN 

- 

'  1          1          1          1          1          1          1          1          1          1 

100                           200                           300                           400                           500 

TIME  (MIN) 

Figure    B.5        Exaifle  of    a   Graph   of   Build-up    Ashore. 

lotal  time  tc  land  a  particular  sized  force  could  be 
obtained  for  several  different  sets  of  input  data.  Then  a 
graph  could  be  made  comparing  the  various  sets  of  inputs  to 
obtain  sensitivity  aralysis  for  the  desired  parameters.  For 
details    cf    the    coding  requirements   see   the    user's    manual. 

3  .      Assumpti  ons    and   Lim  itations 

Assumptions  which  affect  the  results  ot  the  model 
are    as   fellows: 
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•  Helicopter  and  beat  time  factors  are  expected 
values  as  opposed  to  stochastic  valies.  This 
assumption  is  considered  reasonable  since  the 
factors  are  used  many  times.  This  lends  itself  to 
the  use  of  averages  according  to  the  central  limit 
theorem. 

•  There  is  an  attrition  rate  which  is  predetermined 
and  set  as  a  constant.  This  designates  mechanical 
and/or  combat  attrition.  The  value  used  is  based 
on  experience  and  not  on  any  factual  data  therefore 
it   is    considered   an   assumption. 

•  All  time  calculations  are  assumed  to  be  rounded  to 
the  nearest    minute. 

•  Environmental  effects  are  assumed  to  negligible 
which  ittplies  load  limitations  of  the  helicopters 
and  landing   craft    are   based   on    an    averag  e    day. 

limitations    of   the    model   depend      highly   on    the    model 
purpose.      The   followicg    are    the   major    limitations: 

•  In  order  to  run  the  surface  portion  of  the  model, 
there  must  be  a  sufficient  number  of  carriers  to 
land   the   scheduled    and   on-call    waves. 

•  Each  helicopter  wave  must  use  the  si  me  type  of 
helicopter.  Since  the  model  computes  all  activi- 
ties and  times  based  en  a  particular  wave,  the 
speed    of   the   aircraft    must    be   the    same. 

•  Once  the  leads  are  assigned  to  a  wave  and  heli- 
copter type,  they  can  not  be  switched  during  the 
simulation.  Therefore,  unlike  the  fls xitility  in 
reality  of  switching  loads  to  available  craft,  the 
model    does    net    have    that   capability. 

•  Waves  and  serials  are  not  designated  to  a  partic- 
ular ship.  Therefore,  the  simulation  looks  at  the 
total      number  of      deck/well      spots      for    the      entire 
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amphibious    force   instead   of      those   individual    ships 
to   which   craft   are    assigned    to   load. 
•    The  current    edition   is    limited    to    a    maximum    of    four 
landing   zones   or   beaches.         This   can   be    modified   by 
making    a   change  in    the    coding. 

D.       DIVELCFMENT    AND    EXPERIMENTATION 

1 •      revelopment    History 

The  ship-to-shore  model  is  currently  the  first 
revised  edition.  The  original  was  developed  by  General 
Research  Company  for  use  in  the  Amphibious  Lift  Factors 
Study  at  the  Development  Center  Quantico,  Va.  The  devel- 
opers turned  over  the  product  in  an  unusable  form  with  a 
paucity  of  documentation.  The  current  form  was  revised  by 
the    author.  It   involved    variable   identification      and   then 

construction  of  a  detailed  flow  chart  to  understand  the 
logic      of      the    model.  Enhancements      included      interactive 

input,  output  to  a  file,  a  detailed  documentation  section,  a 
'help'  file,  and  conversion  to  IBM  disk  operating  system  for 
an    lEH   PC. 

2 •      Verification    and   Validation 

The  validation  conducted  on  the  model  consisted  of 
two    phases.  The    initial    phase      involved    the   testing      of   a 

simplified  landing  plan  which  could  be  checked  by  hand 
calculations.  The  results  showed  that  the  model  performed 
the    basic   computations   as   it   was    designed. 

The  second  phase  of  the  validation  utilized  the 
results  of  another,  large  scale  simulation.  Since  histor- 
ical data  did  not  exist,  it  was  necessary  tc  compare 
SHIPSHOR  against  another  simulation  (CAAM)  to  verify  the 
output.  CAAM  was  used  in  a  study  conducted  b^^  the  .Marine 
Corps   in    1983       (see    [Bef-    9]   ).        The      method   for    comparison 
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was  a  graphical  technique  in  which  the  output  from  each 
model  was  used.  The  parameters  for  the  simualation  were 
similar  so  that  a  direct  comparison  could  be  made.  A  ten 
percent  confidence  interval  was  placed  around  the  output 
from    CAAM   to  provide    a    feel    for    the    similarities. 

The  results  of  the  above  procedure  prodj ced  outputs 
which  were  very  close.  There  is  no  way  to  place  a  numerical 
value  on  the  comparisons  that  would  make  any  sense.  Thus, 
the  method  employed  for  phase  two  of  the  validation  is  more 
subjective      than   objective.  However,         the    coafidence      in 

SHIPSHOE,  based  on  the  validation  conducted,  should  be  as 
high    as    that  of    CAAM. 

Finally,  sensitivity  analysis  was  CDnducted  on 
SHIPSHOE  using  a  variety  of  parameter  sets  to  observe  how 
the  model  behaved.  The  results  were  portrayed  graphically 
which  provided  a  feel  for  the  performance  of  tha  simulation 
when    conducted      under  different    conditions.  This    analysis 

demonstrates  which  parameters  affect  the  model  greatly  and 
which    have    a   lesser    influence    on    the    results. 

The  details  of  validation  and  sensitivity  analysis 
can  be  found  in  Chapter  V  of  this  thesis.  •  The  analysis  was 
not,  by  any  stretch  of  the  imagination,  all  encompassing. 
That  would  require  a  considerable  amount  of  study  due  to  the 
large  number  of  parameter  combinations  that  might  be  tested. 
However,  the  analysis  that  was  conducted  can  be  repeated 
under  many  conditions  of  interest  to  give  further  enlighten- 
ment   to    the    user   of    the    model. 

E.       CDEEENT    AND    ADDITIONAL    APPLICATIONS 

^ •      Current    Use 

Current  interest  in  the  ship-to-shore  nodel  exists 
in  the  plans  and  operations  section  of  HQMC  for  amphibious 
lift  planniEg.  The  model  can  provide  a  desk-top  decision 
aid    for   immediate    'what   if    type    questions. 
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2 •      Additional    Apglicat ions 

Ihe  model  cculd  have  application  during  an  amphib- 
ious landing  to  detemine  the  progress  of  the  landing.  This 
would  also  provide  historical  data  for  continued  validation 
and  refinement  of  the  model.  Additionally,  utilization  in 
the  planning  phase  of  an  operation  could  provide  a  commander 
with  estimates  of  the  time  involved  to  land  his  forces  using 
a   particular  scheme    of   maneuver.  He   could    investigate    the 

effect  of  changing  various  input  parameters  within  the  model 
to   aid      in    his      decision   process.  For   instance      given    his 

force  size,  he  may  want  to  determine  the  minirajm  number  of 
helicopter  landing  zones  which  would  give  him  an  acceptable 
build-up   ashore. 

Automation  of  the  construction  of  tha  wave  and 
serial  assignment  tables  would  reduce  the  large  amount  of 
time  reguired  for  input  data  preparation.  This  would  result 
in  a  self-contained  ship-to-shore  model  with  realistic 
combat    uses. 

F.       EZFEBEHCES 

See    M.S.    thesis    by    Major   S-    M.    Ritacco,    USMC,      1984,    NPS. 
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original  mcdel  was  delivered  in  an  unusable  form  which 
prompted   revision   by    the  author.  The    purpose   )f    the    model 

is  tc  simulate  the  movement  of  units  of  various  sizes  from 
amphibious  shipping  to  shore  via  surface  and  helicopter 
transportation. 

The  purpose  of  the  user's  section  is  to  pro^^ide  nonpro- 
gamming  users  of  the  ship-to-shore  model  with  the  informa- 
tion necessary  to  use  the  model  effectively.  Td  .accomplish 
this  end  the  following  section  will  describe  the  model,  give 
details  for  the  model  input  data,  explain  the  model  output 
data,    and   give    some    sample    runs   and   examples. 

C.       DESCBIPTION    OF    TEI    MODEL 
1 .      Cyervie w 

a.  Model  Identification 

The  model  documented  in  this  manui  1  is  named 
SHIPSHOE.  It  is  designed  to  simulate  the  movement  of  men 
and  eguipment  via  helicopters  and  surface  craft  from  amphib- 
ious shipping  to  shore  during  an  amphibious  landing. 
SHIPSHOR  is  written  in  Microsoft  Basic  and  designed  to  be 
used  en  an  IBM  PC.  However,  it  can  be  modified  to  run  en  any 
pc  which  can  be  converted  to  run  Microsoft  Basic  formatted 
for  MEGS.  Currently  SHIPSHOR  has  no  relation  to  any  other 
models. 

b.  Physical    System    Highlights 

The  major  activities  during  a  si  ip-to-shore 
ttovement  for  either  helicopter-borne  or  surf ace- borne  units 
are    listed    in  Figure   C. 1 

The  first  activity  is  the  loading  piase.  This 
takes  place  aboard  the  amphibious  shipping  located  in  its 
designated  sea  echelon  area.  It  consists  of  the  loading  of 
troops   and/or  equipment   aboard    helicopters    or    surface    craft. 
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Figure  C.  1        Flow   Chart   of   the   System 
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The  launching  phase  follows  loading  i  nd  involves 
the  launch  and  rendezvous  of  the  carriers  in  order  to 
proceed  to  shore  as  an  entire  wave.  Once  the  wave  is 
constituted  it  travels  via  prescribed  routes  to  its 
destination. 

Approach,  landing,  and  off-loading  transpires 
next  at  the  appropriate  destination.  This  phase  of  the 
araphiiious  landing  is  where  combat  attrition  is  most  likely 
to  occur.  Both  landing  craft  and  helicopters  are  most  vuln- 
erable in  a  static  situation  while  troops  and  equipment 
cff-lcad. 

The  return  transit  takes  place  for  ill  carriers 
except  LVT*s  (amphibious  tracked  vehicles)  which  proceed 
inland.  Upon  return  to  amphibious  shipping  the  transports 
must  wait  for  an  opening  on  the  flight  deck  or  the  well-deck 
to  land  (dock)  .  The  vehicles  will  then  refuel  and  prepare 
for  their  next  trip  ashore.  The  cycle  is  then  repeated 
until   all  necessary    assault    waves    are   ashore. 

Each  class  of  wave  (scheduled,  on- call,  and 
nonschedtled)  will  execute  all  the  events  listed  above.  The 
order  in  which  each  class  of  wave  will  commence  the  cycle  is 
normally  (1)  scheduled,  (2)  on-call,  and  then  (2)  nonsche- 
duled.  Ho^wever,  on-call  and  nonscheduled  waves  can  inter- 
rupt   the   sequence   depending    on    the    situation   ashore. 

c.      Model   Applicability 

The  model,  called  SHIPSHOE,  can  be  used  to 
determine  tuild-up  cf  troops  and  firepower  ashore  versus 
time.  It  can  also  be  used  to  compare  various  changes  in  the 
number  and  size  of  landing  zones  (beaches) ,  numbers  of 
carriers,  numbers  of  amphibious  ships,  distances  from 
launch,  deck  spot  utilization,  and  attrition.  These  capa- 
bilities of  the  model  are  concerned  with  the  utilization  in 
the      planning      of      operations     as    well      as      use      during      the 
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execution  of  the  plan.  The  model  accomplishes  the  above 
tasks  through  a  series  of  subroutines  which  calculate  the 
time  for  certain  events  to  occur,  then  it  executes  those 
events    sequentially.  (See    Figure   C.  2)       A    detailed    explana- 

tion of  the  subroutines  can  be  found  in  the  programmer's 
section. 

The  ship-to-shore  model  can  be  Jtilized  in 
studies  involving  amphibious  operations  to  determine  optimum 
carrier  number,  launch  distance  mixtures,  deck  spot  utiliza- 
tion, etc.  The  model  could  also  be  employed  in  a  planning 
mode  to  predict  approximate  troop  build-up  ashoce  given  the 
unit,  distance  of  launch,  number  of  carriers,  number  of  deck 
spots,  etc.  This  could  be  utilized  in  the  planning  phase  of 
an  operation  to  provide  a  commander  with  estimates  of  the 
time  involved  to  land  his  forces  using  a  particular  scheme 
of  maneuver.  He  could  investigate  the  effect  of  changing 
various  input  parameters  within  the  model  to  aid  in  his 
decision  process.  For  instance  given  his  force  size,  he  may 
want  to  determine  tie  minimum  number  of  helicopter  landing 
zones    which   would   give   him    an   acceptable   build-up    ashore. 

d.      Input  and  Output 

There  are  three  basic  categories  of  data  input 
for  SHIPSHOS.  The  landing  plan  data  file  is  the  largest  and 
most  important.  It  contains  the  wave  and  serial  data  which 
are  such  items  as  personnel,  wave  number,  destination,  fire- 
power score,  type  of  carrier,  class  of  the  wave,  etc.  The 
second  data  file  is  called  T-1.dat  and  is  made  up  of  all  the 
parameter  data  which  is  not  likely  to  change  Dften.  The 
third  source  of  input  data  is  either  interactive  input  or 
line    input     (to      chance   parameters    within  code).  This   data 

consists  of  parameters  which  will  be  changed  often  during 
sensitivity   analysis. 
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Figure  C, 2        Flow   Chart   of   the    Model. 

107 


The  outf ut  of  the  model  can  be  n  odified  to 
reflect  the  on-going  utilization.  For  exmaple,  if  the  HOE  is 
build-up  ashore,  the  output  could  be  personnel  and  firepower 
ashore  at  given  times.  This  data  could  be  printed  or  sent 
to  a  file  for  use  in  a  graphics  program  to  plot  the 
build-up.      See    Figure  C.3   . 
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'    Figure  C, 3        Graph    of    Build-up    Ashore. 

Total      tine    to      land      a      particular   sized      force 
could    he   obtained   for   several      different   sets   of    input    data. 
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Then  a  graph  could  te  made  ccmparing  the  various  sets  of 
inputs  to  ottain  sensitivity  analysis  for  the  desired  param- 
eters. For  details  of  the  coding  requirements,  see  the 
prog  ram  lEer  *  s  or    user's   section. 

2 .      Methodology 

a.      Physical    System    Details 

The  following  gives  more  details  fo:  the  phys- 
ical system  being  modelled  and  is  an  elaboration  of  Physical 
System    Highlights   section: 

•  loading  £hase:  The  loading  phase  can  only  take 
place  if  there  are  sufficient  carriers  available 
to  load  the  entire  wave.  Also,  there  must  be  the 
requisite  number  of  deck  (well-decki  -■  spots  to 
accomodate  the  carriers  which  are  to  load.  Once 
those  conditions  have  been  met  the  first  activity 
can   be   completed. 

•  iAlUich    ghase:    No    additional    details. 

•  Di^loading  phase:  The  conduct  of  this  pi  ase  depends 
upon  two  restrictions.  The  beach  or  landing  zone 
must  be  large  enough  to  accomodate  the  current 
wave.  If  the  preceeding  wave  is  still  present, 
the  landing  area  may  not  be  large  enough  which 
will  cause  a  delay.  Also,  the  current  wave  may  be 
too  large  by  itself  which  means  onl^r  a  limited 
number  of  boats  or  helicopters  can  off-load  while 
the   other    vehicles   await   an   opening. 

•  Eeturn   phase:    No    additional    details. 

•  Arrive  back  phase:  This  phase  can  ae  completed 
when    there      is  a    sufficient      number   of      deck    spots 

(well      or      flight)       to      accomodate      the      returning 
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vehicles.         Once      the    wave    of    vehicles      has    landed 
the   cycle    can    repeat    itself. 

t.      Model  Logic   and    Data    Flow 

The  model  utilizes  35  subroutines  t3  attempt  to 
translate  reality  intc  mathematical  computations.  A  diagram 
of  the  model  in  very  general  terms  is  found  in  Figure  C.2 
The  first  subroutine  in  the  program  reads  the  data  from  the 
wave  and  serial  file  and  the  parameter  file.  Also  the  vari- 
able data  is  entered  within  the  first  section  of  the 
program.  The  second  subroutine  initializes  the  arrays  and 
clocks  to  be  used  by  the  timing  and  activity  subroutines, 
based  on  tie  information  found  the  wave  data  file.  These 
subroutines  essentially  complete  set-up  and  initialization 
of    the    model. 

Once  the  model  enters  the  EXEC  subroutine  it 
continues  the  time/event  procedure  until  all  waves  have  been 
landed.  The  EXEC  subroutine  is  the  control  routine  in  which 
all  waves  eventually  pass.  Based  on  the  class  of  the  wave 
(air  or  surface)  and  the  current  activity  (load,  launch, 
unload,  return,  or  arrive  back  ship) ,  the  EXEC  subroutine 
will  send  the  wave  in  question  to  the  proper  subroutine  for 
manipulation. 

Prior  to  going  to  one  of  the  actisr  ity  subrou- 
tines, the  program  gueries  whether  certain  flags  have  been 
set.  If  they  have  been  set,  one  of  the  following  routines 
could  be  called.  Five  are  for  helicopter  waves  and  four  are 
for    surface    waves.       They   are: 

•  JRISTART(helc)  /  BESTART  (surface)  :  Restart  timing 
for  waves  that  have  been  stalled  by  the  lack  of 
deck  spots  (helo  or  surface)  .  Since  in  reality 
there  are  net  enough  spots  available  to  load  all 
of  the  assault  carriers  at  one  time,  subsequent 
waves      may      be  delayed.  This      routine      restarts 

timing   after   such    a    delay. 
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•  S10CH (help)  /  STOCI  (surf ace)  :  These  subroutines 
start  the  on-call  waves  to  load  after  the  final 
scheduled    wave   has   tegun   to    load. 

•  HALISH(helc)  /  HALTS! ( surf) :  Stall  remaining 
scheduled  waves  when  one  or  more  on-call  waves 
interrupt  the  scheduled  category.  As  in  reality, 
on-call  waves  can  break  in  when  called  for.  The 
model  allows  flags  to  be  set  to  simulate  this 
process. 

•  SISH(helo)  /  STSL  (surface) :  Start  schsduled  waves 
that  have  teen  stalled  due  to  on-call  waves  inter- 
rupting the  sequence.  More  than  one  on-call  wave 
can  interrupt  at  different  times  so  the 
HALTSH  (L)/£ISL  (L)  subroutines  can  be  called  more 
than    once. 

•  HCKLD(helo):  Eeevaluates  deck  spot  ea ploymert  if 
the  current  wave  does  not  occupy  all  spots  avail- 
able- It  calls  WSPOT  which  calculates  the  number 
cf   spots    to   be   used    in    the   current    wave. 

One  last  subroutine  will  be  called  prior  to  the 
activity  subroutines.  This  is  the  MSORT  routine  which  acts 
as  the  master  sort  routine.  It  takes  the  lowest  time  from 
six  other  time/event  sort  routines  and  that  becomes  the  next 
event  which  is  processed  by  the  appropriate  activity 
subroutine. 

There  are  three  time  sort  routines  common  to  the 
helicopter  activities  and  three  time  sort  routines  common  to 
the  surface  activities.  They  all  sort  through  the  waves 
identifying  the  wave  with  the  earliest  time  for  the  next 
event.  That  wave  is  placed  on  the  top  of  the  queue  from 
which  MSCET  then  picks  the  lowest  time  out  of  the  six  time 
sort    routines.       Listed   below   are   the    sort   subroutines: 

•  H5S0ET ;    Scheduled    helicopter   wave   sort    routine. 
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•  HCSORT :    On-call  helicopter    wave    sort  routine. 

•  HNSORT :    Nonscheduled   helicopter    wave  sort    routine. 

•  ISSORT:    Scheduled    surface   wave   sort   routine. 

•  IC5QRT :   On-call  surface   wave   sort  routine. 

•  INSORT:    Nonscheduled    surface    wave   sort    routine. 

The  activity  subroutines  process  each  wave  tased 
on  its  class,  activity  code,  and  category  (scheduled, 
on-call,  or  nonscheduled)  .  There  are  five  major  activity 
subroutines  for  each  class  (air  or  surface) .  Each  activity 
subroutine  calls  other  secondary  routines  and  the  appro- 
priate time  sort  routine  as  determined  by  the  wa/  e  category. 
Cnce  the  wave  has  completed  an  activity  subroutine,  it 
returns  to  the  EXEC  subroutine  and  the  cycle  begins  again. 
Thus,  each  wave  will  eventually  cycle  through,  five 
subroutines. 

The  following  is  a  summary  of  the  activity 
subroutire   and   their    supporting   routines: 

•  HELD;      The    purpose   is    to   load    (or   atten  pt    to    load) 
a   helicopter   wave    from    available    flight    deck    spots 
of  the  shipping.       Loading    will   not    be* initiated   if 

(1)  no   deck      spots   are   currently   available      or    if 

(2)  insufficient  helicopters  of  the  proper  type  to 
carry  the  serials  are  present  at  the  time.  HELD 
calls  the  appropriate  time  sort  routine  (HSSORT, 
HCSORT,  or  HNSOET)  and  subroutine  SPOTS.  The 
SfOTS  routine  identifies  whether  all  the  deck 
spots  are  curently  being  employed  for  loading.  A 
flag  is  set  to  indicate  whether  deck  spots  are 
available    cr   not. 

•  HINCH :      This      routine    launches      a   helicopter      wave 
from    ships    and   determines   the      time   it    will   arrive 
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at  the  landing  zone(s).  It  determines  the  numter 
of  deck  sfcts  made  available  to  subsequent  waves 
and  restores  those  spots.  Also  it  reevaluates  the 
loading  time  for  a  wave  being  loaded  which  had 
employed  all  of  the  remaining  deck  spots.  HLNCE 
calls  the  appropriate  time  sort  routine  (HSSORT, 
HCSORT,  or  ENSOET)  and  HLODCK  and  RESTART.  HIOCCK 
sets  up  signals  that  will  initiate  a  reevaluation 
of  the  deck  spot  employment  in  the  event  that  the 
current  wave  was  not  employing  the  last  available 
deck  spot.  Those  signals  will  trigger  the  use  of 
HCKLD  which  is  called  from  EXEC.  If  the  current 
wave  was  occupying  the  remaining  decc  spots,  a 
flag  is  set  to  call  RESTART  from  EXEC.  RESTART 
allows  subsequent  waves  to  employ  deck  spots  which 
will  be  vacated  by  the  current  wave. 

HUNLD;  HUMD  determines  whether  or  not  landing 
zones  are  still  occupied  by  previous  waves  and  if 
so  delays  the  landing  of  the  current  wave  until 
the  pertinent  zones  are  free  to  use.  Also  it 
calculates  the  length  of  time  necessary  for  this 
wave  to  unload  (constrained  by  the  size  of  the 
landing  zone).  HUNID  calls  the  appropriate  time 
sort  routine  (HSSORT,  HCSORT,  or  HNSORT) . 

HRTN:  The  purpose  is  to  print  a  running  total  of 
the  personnel  ashore  and  the  firepower  ashore. 
Also  HRTN  calculates  the  time  that  the  wave  will 
return  to  the  area  of  the  shipping  and  hence  be 
available  for  formation  of  subsequent  waves.  It 
calls  the  appropriate  time  sort  routine  (HSSORT, 
HCSORT,  or  HNSORT) . 
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•  HAEIV;  HAR3V  returns  helicopters  to  th2  helicopter 
pools  for  use  in  forming  subsequent  waves  after 
degrading  the  number  of  helicopters  to  reflect 
maintenance  losses.  It  also  initiates  the  loading 
process  for  subsequent  waves,  HARIV  calls  the 
appropriate  time  sort  routine  (HSSORT,  HCSOET,  or 
HNSORT). 

The  surface  activity  subroutines  operate  in 
basically  the  same  manner  (the  first  letter  :  or  surface 
activities  is  B  instead  of  H)  .  Since  the  following  routines 
are  so  similar  to  the  helicopter  routines,  only  the  differ- 
ences   will    he   pointed  out. 

•  EBLD ;  The  purpose  is  to  load  the  landing  craft  in 
a  similar  fashion  to  the  HELD  for  helicopters.  It 
calls  the  appropriate  time  sort  routines  (ISSOET, 
ICSORT,  or  LNSOET)  and  the  subroutine  WEIDEK. 
T?E1DEK  calculates  the  well  decks  to  be  used  by 
landing  craft  of  each  wave  and  indicates  whether 
there    are    sufficient   openings   or    not. 

•  EINCH:  This  routine  launches  the  surface  waves 
from  the  ships.  It  calls  the  appropriate  time 
sort    routine    (LSSORT,    LCSORT,    or    LNSORT) . 

•  BUNLD :  BQMD  determines  if  the  beach  is  open  for 
landing  and  offloads  the  wave  if  it  is  possible. 
It      calls        the      appropriate      time        sort      routine 

(ISSOET,  LCSORT,  or  INSORT) . 

•  ERTN:  BRTN  prints  the  running  total  of  personnel 
ashore  and  the  firepower  ashore.  Also,  it  returns 
the  boats  tc  the  ships.  It  calls  the  appropriate 
time  sort  routine  (ISSOET,  LCSORT,  or  L NSCET)  . 

•  EAEIV:  This  routine  returns  the  boats  to  the  boat 
pools    for  subsequent    use.      It   calls    the 
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appropriate  time  sort  subroutine  (LSSO?  T^   LCSORT, 

or  LNSORT) . 

Once  each  wave  has  cycled  through  ths  five  heli- 
copter activities  or  the  five  surface  activities,  they  are 
assigned  a  very  large  value  in  their  time  array.  This 
prevents  them  from  recycling.  The  program  will  end  when  the 
last  Donscheduled  surface  wave  has  gone  through  all  activi- 
ties. At  that  point,  all  personnel  in  the  wave  data  file 
will  he  ashore. 

3  .   Assumptions  and  Lim  itations 

a.   System  Related 

Assumptions  which  affect  the  results  of  the 
model  are  as  follows: 

•  Helicopter  and  boat  time  factors  are  expected 
values  as  opposed  to  stochastic  values.  This 
assumption  is  considered  reasonable  since  the 
factors  are  used  many  times.  This  lends  itself  to 
the  use  of  averages  according  to  the  central  limit 
theorem. 

•  There  is  an  attrition  rate  which  is  predetermined 
and  set  as  a  constant.  This  designates  mechanical 
and/or  combat  attrition.  The  value  used  is  based 
on  experience  and  not  on  any  factual  data  therefore 
it  is  considered  an  assumption. 

•  All  time  calculations  are  assumed  to  be  rounded  to 
the  nearest  iiinute. 

•  Environmental  effects  are  assumed  to  negligible 
which  implies  load  limitations  of  the  helicopters 
and  landing  craft  are  based  on  an  averaj  e  day. 

Limitaticjis  of  the  model  depend  highly  on  the 
model  purpose.   The  following  are  the  major  limitations: 
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•  In  order  to  run  the  surface  portion  oc  the  model, 
there  must  be  a  sufficient  number  of  carriers  to 
land  the  scheduled  and  on-call  waves, 

•  Each  helicopter  wave  must  use  the  same  type  of 
helicopter.  Since  the  model  computes  all  activi- 
ties and  times  based  on  a  particular  wave,  the 
speed  of  the  aircraft  must  be  the  same. 

•  Once  the  loads  are  assigned  to  a  wava  and  heli- 
copter type,  they  can  not  be  switched  during  the 
simulation.  Therefore,  unlike  the  flexibility  in 
reality  of  switching  loads  to  available  craft,  the 
model  does  not  have  that  capability. 

•  Waves  and  serials  are  not  designated  to  a  partic- 
ular ship.  Therefore,  the  simulation  looks  at  the 
total  number  of  deck/well  spots  for  the  entire 
amphibious  force  instead  of  those  individual  ships 
to  which  craft  are  assigned  to  load. 

•  There  is  a  max  of  four  landing  zones  or  beaches 
that  can  be  used  for  any  landing.  This  can  be 
modified  if  more  are  desired  by  making  a  change  in 
the  code, 

t.   Model  Parameters 

The  model  parameters  must  agree  with  each  other. 
For  example,  the  parameter  TA  (number  scheduled  helo  waves) 
must  reflect  the  number  of  waves  found  in  the  serial  data 
input  file.  If  a  parameter  value  is  changed,  caution  must 
be  exercised  to  ensure  other  values  are  not  affected  in  an 
adverse  manner.  This  becomes  very  apparent  when  the  landing 
plan  data  file  is  changed.  That  change  affects  the  number 
of  wave  parameters,  the  number  of  serial  parameters,  and  a 
host  of  ether  values.  The  'help'  file  gives  guidance  along 
these  lines. 
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c.  Output    Littitations 

As  with  aijy  model,  results  from  th3  simulation 
must  be  used  judiciously.  The  model  output  is  only  as  good 
as  its  validation  and  verification.  Even  then,  no  model  is 
perfect  and  results  must  be  used  cautiously.  SKIPSHOR  must 
undergo  a  rigorous  validation  and  subsequent  modifications 
in  a  series  of  actual  amphibious  operations  before  its 
predictive   capabilities   are    verified   as   reliable. 

d.  Restrictions  on    Model  Jse 

As  with  any  model  the  current  iaodel  should  be 
considered  as  an  approximation  of  a  complex  process  vihich 
contains  many  variables.  It  is  not  designed  to  produce 
results  en  which  policy  can  be  based.  It  is,  however,  to  be 
used  to  give  an  estimate  where  only  a  bad  guess  would  exist 
ether  wise. 

E.       BCDEI    IBPUT    DATA 

"•  •      General    Description 

Input  data  is  broken  down  into  three  categories. 
The  largest  group  of  data  is  found  in  the  landinj  plan  file. 
The  file  requires  the  manual  construction  of  serials  and 
assault  waves  in  a  specific  format.  The  format  is  found  in 
the  'help'  file  and  the  user's  manual.  An  example  of  this 
file    is    listed    in   Figure   C.  4    . 

Two  other  data  sources  are  needed  to  rua  the  model. 
Cne  file  contains  parameter  values  which  are  not  subject  to 
change      and   is      called    T-1.dat.  See    'help'      file   for      the 

format.  Pigure  C. 5  is  a  listing  of  the  file.  A  helicopter 
time  factors  table  which  provides  expected  times  for  various 
evolutions  is  an  example  of  the  type  of  data  found  in  this 
file. 
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IS, 

317. 125, 

33,35, 1373. A. A, 3, I ,R-1,615 

IS, 

348, 128, 

33,35, 1878, A, A, a, I,R-2,615 

IS, 

378, 128, 

33,35, 1373, A, A, 3, I,R-3,615 

2S, 

317, 128, 

33,35, 1878, A, A, 3, I, R- 1,615 

2S, 

348, 128, 

ZZ, 35, 1878, A, A, 3, I ,R-2,615 

2S, 

378, 128, 

33,35, 1878, A, A, 3, I,R-3,615 

3S, 

317,280, 

66 , 70 , 3560 , A , B , 9 , I , R- 1 , 1 230 

35, 

348,230, 

66,70, 3560, A, B,9, I ,R-2, 1230 

35, 

383,230, 

66,70,3560, A, B, 9, I,R-3, 1230 

4S, 

1021,50, 

943,5476,37414, A, B,8, I,R-1 ,360 

45, 

1025, 50, 

948,5476,37414, A, B.8, I,R-2,360 

45, 

1030,50, 

^48,5476,37414, A, B, 3. I,R-3,360 

55, 

329, 112, 

42,34,341, A, A, 7, I, R- 1,651 

55, 

359, 112, 

42,34,341, A, A, 7. I,R-2,651 

55, 

339, 112, 

42,34,341 , A, A, 7, I .R-3, 651 

AS, 

329, 112. 

42,34,841, A, A, 7, I.R-1 .651 

63, 

359. 1 12, 

42,34,341, A, A, 7, I,R-2,651 

65, 

389, 1 12, 

42 . 34 , 34 1 , A , A , 7 , I , R-3 , 65 1 

"^5 , 

1021 ,62, 

561,3276, 23015, A, A, 2, I, R- 1,225 

Figure  C.4    Example  of  landing  Plan  Data  File, 


c:type  t-i.dat 

9.7.4,9,9,7,2,9,9,7,2.9,7.4.4,7.7,4,2,7.7,4,2,7,  1,  1,  1,  1,  1 

1 ,  1 ,  1 ,  1 .  1 .  1 .  1  ,  1  .  1 .  1 .  1  ,  1  .  0 ,  0 . 1.") .  0 ,  0 ,  0 ,  0 .  0 

0,0.0. 1. 1 , 4. 4. 4.4. 1 , 1 , 1 .5.9. 10. 4. 4. 4. 4. 4. 4, 1 , 1, 1 

120.  1 00 .  1  C'0 ,8.9,  12,  11  ,20,20 

1  ,  1 .  1  .  1  ,  1  ,  1  ,  4 ,  1 0 ,  1  IT .  1 0 .  1  0 ,  1 0 .  1  ,  1  .  1 .  1  .  1  .  1  .  0 .  1 0 .  1  i-"i .  1 0 .  1 0 ,  1 0 .  0 

2.  1.  1.  1.  1.  1,  1,  1,  1,  1,  1.  1  ,  1 


1,1.1,1,1,1,1,2,1,1. 


C> 


Figure    C. 5         Ezaaple    of    Data    File    T-I.DAT. 

The    last  data    source      is    found      within    the      program 

itself    as    either  a    line   of      code    or   as   an    intera::tiv€   query. 

This    data      is   of  the  type      that    may      be   changed      easily    for 

various    types   of  analysis.       See    'help'    file   and    Figure    C. 6    . 

The    data   sources  are    summarized   in    Table    XVII    . 
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RUN 

I  OF  SERIAL  LINES  OF  DATA  FOR  SCHED,CN-CALL,  4  N0N3CHED  HELD  THEN  SURFACE:67, 23,0,60,0,0 

Sstup  17907 

»  OF  SHIPS  BY  TYPE  (LHfl,LFH,LSD,LFD,LST) :5,7, 1,9, 1 

1ST  TURNAROUND  SCHED  HELD  WAVE: 14 

S  OF  BEACHES  AND  !  OF  LANDING  ZONES: 4., 7 

HELO  LAUNCH  DISTANCE,  BOAT  LAUNCH  DISTANCE,  AND  SHORE  TO  L2  DISTANCE: 50, 2, 5 

LHOUR  AND  HH0UR:017000,0 

I  OF  aAVES  IN  ORDER  SCHED,  ON-CALL,  NONSCHED  HELO  THEN  SURFACE: 23, 10,0, 17,0,0 

»  OF  HELOS  THAT  CAN  OCCUPY  AN  LZ  AT  ANY  ONE  TIME  BY  TYPE  (CH46,  CH53D,  CH53E,  UHIN) :  10,3,3, 16 

I  OF  CARRIERS  BY  TYPE  (CH46,  CH53D,CH53E, UHIN, LVT, LC^i, LCfl3, LCU, LST, LARC) :  156,30,32,0,247,52,3942,23,0, 12 

f  OF  SURFACE  CRAFT  THAT  CAN  OCCUPY  A  BEACH  AT  ANY  ONE  TIME  BY  TYPE  (LVT,LC!16,LCI18,LCU,LST,LARC)  :6,5,4,2, 1,4 

INPUT  DATA  FILE  NAt1E:LPE.DAT 
OUTPUT  FILE  NAHE:TESTI 


Figure  C.6    Exaaple  of  Interactive/Line  Input  Data. 


TABLE    XVII 

Summary 

of   Input    Data 

Sources 

Category 

Name 

Data   Media 

Landing    plan 

LPE.DAT 

Disk   FL le 

Fixed  parameters 

T-1.DAT 

Disk   File 

Interacti  ve 



Termini  1 

Prbgram    lines 

._. 

Listing 
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2  .   Detailed  Descriptio  ns 

a.  Landing  Plan  Data  File 

The  landing  plan  file  contains  tie  wave  and 
serial  data  which  is  processed  by  the  model.  It  has  type  of 
carriers,  number  of  personnel,  wave  number,  destination, 
etc.  for  each  serial  going  ashore.  Its  purpose  is  to 
provide  the  model  with  the  troop  unit,  equipment,  and  trans- 
portation information  which  will  be  'moved  ashore'  -by  the 
simulation. 

Each  line  in  the  data  file  contains  twelve 
pieces  of  information  which  the  model  requires.  These  are 
explained  as  part  of  an  example  listed  in  figure  C.7 
figure  C.7  is  a  part  of  a  'help'  file  which  located  on  the 
same  disk  as  the  main  program  and  is  for  use  in  constructing 
the  data  file.  A  copy  of  the  'help'  file  is  located  in 
Appendix  E. 

b.  Fixed  Parameter  Data  File  T-1.DAT 

This  data  file  contains  parameter  values  which 
are  not  subject  to  constant  change.  The  three  major  tables 
of  this  type  are  the  helicopter  time  factors,  boat  time 
factors,  and  operational  deck  spot  tables.  The  first  two 
provide  the  expected  times  for  various  evolutions  to  utilize 
and  the  last  gives  the  deck  spots  under  various  conditions. 
Tables  XVIII,  XIX,  and  XX  list  the  data  which  ace  read  from 
T-1.DAT.  The  purpose  of  this  file  is  to  read  data  into 
various  arrays  within  the  program  which  will  be  used  to 
compute  event  times. 

The  first  two  lines  of  the  T-1.DAT  file  refer  to 
Table  XX  The  data  is  listed  in  the  file  row  by  row  from  the 
table.  Thus,  the  first  twelve  values  come  from  row  one  of 
the  table.  The  next  line  contains  data  from  table  XVIII  It 
is  listed   in  the  same  manner   as  Table  XX  except   the  first 
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type  land  the 

THE  FOLLOWING  IS  AN  EXAMPLE  OF  THE  DATA  INPUT  FOR  ALL  WAVE 
INFORMATION.   THE  FIRST  LINE  OF  LETTERS  ANH  NUMBERS  IS  AN  ACTUAL  LINE  OF 
DATA  FOUND  IN  THE  LPE.DAT  FILE.  THE  CORRESPONDING  LETTERS  WILL  EXPLAIN 
EACH  COLUMN  OF  DATA. 

lSf317»128f33f35f 1878fA»Af8rIfR-lf615 

I         *         14*         *         lift*         * 

A  T  P  >  C  rfl  fE  T  F   fGfHfirJf  K  j    L 

»tt»t«»t**tl******«*»«***»t**tf*»«*l**tt4*******»*>«*»*t»ft4» 

a:      THE  NUMBER  INDICATES  THE  UAUE  *  AND  THE  LETTER  REFERS  TO  THE 
CLASS  OF  THE  WAVE  ( S=SCHEDULED •  0=ON-CALLf  N=NON-SCHED ) . MORE 
THAN  ONE  LINE  OF  DATA  (CALLED  A  SERIAL)  CAN  BE  OF  THE  SAME  WAVE 
NUMBER.   EACH  SERIAL  RUNS  SEQUENTIALLY  FROM  1  TO  THE  LAST  SERIAL 
THE  CLASS. 

P:  RESERVED  FOR  FUTURE  USE. 

C;  NUMBER  OF  PERSONNEL  IN  PARTICULAR  SERIAL  OF  A  PARTICULAR  WAVE 

D-F:  RESERVED  FOR  FUTURE  USE. 

G:  MODE  OF  TRANSPORTATION.  (A=HELOr  S=SURFACE) 

H:      CATEGORIES  OF  CARRIERS.  A  THROUGH  K  CORRESPOND  TO  1-11.  (1=CH46E 
2=^CH53Dt  3  =  CH53E»  4  =  UHINt  5  =  LVT»  6  =  LCM-6»  7  =  LCM-8»  e  =  LCU»  9  =  LSTi 
10=LARCf  11=LCAC).  CARRIER  TYPE  MUST  BE  THE  SAME  FOR  THE  SAME 
WAVE. 

II      NUMBER  OF  CARRIERS  IN  THE  SERIAL 

J:      TYPE  LOAD  (I=INTERNALf  E=EXTERNALy  C=COMPINATION ) 

k:    destination:  (b-i  through  b-4  refers  to  beaches  ti  through  t4 

AND  R-1  through  R-4  REFERS  TO  LANDING  ZONES  *1  THROUGH  *4) 

L;      WEAPONS  UNIT  VALUE  ( WUV-FIREPOWER  SCORE) 
END  OF  FILE 

R;  T=0.01/0.09  16:55;59 


Figure  C.7    Format  for  the  Landing  Plan  File. 

four  values  come  from  the  first  row  of  the  table.  Line  four 
lists  three  helicopter  speeds  then  six  landing  craft  speeds. 
The  vehicles  for  which  these  speeds  are  listed  are:  CH-53, 
CH-46,  UHIN^  LVT,  LCM-6,  LCM-8,  LCU,  LST,  and  LAPC.  The 
last  two  lines  of  the  file  contain  data  from  Table  XIX  They 
are  also  listed  by  row.   (see  Figure  C. 5  ) 
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TABLE    X?III 
Helicopter   Tiae   factors   in    Minutes 


2lE§   si   loaj 
fielg    vave  operation 
(  1 )    Land    in    zone 

(2)  Disenbark    troops    (cargo) 

(3)  Takeoff/rendezvous   frcm   LZ 
(1)    Maneaver/la nd    ship 

(5)  Ref UGl/embark    troops     (cargo) 

(6)  Takeoff /rendezvous   from   ship 

(7)  Maneuver/land    in   LZ 
(0)    Safety   clearance    time 


nt§Ena 

1 

Ext. 

etna 

1 

Combined 

0 

0 

0 

1 

1 

i| 

H 

a 

4 

1 

1 

1 

5 

8 

10 

H 

4 

^ 

n 

4 

1 

1 

1 

1 

c.   Interactive  Data 

Although  this  source  is  not  a  file,  it  is  the 
final  means  used  to  assign  values  to  the  remaining  vari- 
ables. Once  the  first  two  files  are  prepared,  the  model  is 
loaded  into  the  computer  and  initiated.  The  program  will 
query  the  user  to  input  data  for  the  parameters  which  are 
most  Jikely  to  change  during  any  type  of  analysis.  An 
alternative  is  to  change  the  code  within  the  program  itself 
where  seme  of  these  values  are  found.  The  parameters  that 
are  requested  by  the  interactive  input  are  listed  in  the 
Table  XXI  . 
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TABLE    XIX 
Boat   lime  Factors  in   Minutes 


Boat    type 
Boai    jiaie  OEecatloo  IVT      LCHrL      hQ^zS     iCO      LST      LABC      LCAC 

(1)  Land    at    beach     (ot    LZ ) 

(2)  Dlsenbark    troops/load 

(3)  R€nd€Z7ous    for    return 
(1)     Deck    tlae   to    ship    (well    deck) 

(5)  Ref uel/eabark    troops/load 

(6)  Circle   and    rendezTous 

(7)  Land    at    beach 

(8)  Safety   clearance    tine 


1 

1 

1 

1 

1 

1. 

1 

II 

10 

to 

10 

10 

10 

15 

■1 

1 

1 

1 

1 

1 

0 

0 

10 

10 

10 

10 

10 

10 

0 

5 

5 

5 

5 

5 

15 

1 

2 

2 

2 

2 

2 

1 

1 

1 

1 

1 

1 

1 

1 

1 

i 

1 

1 

1 

1 

1 

3 .      Da ta  Collection   and    Haintenance 
.  a.      Data   Sources 

Two  documents  must  be  completed  prior  to 
construction  of  the  landing  plan  files.  These  docuirents  are 
the  Helicopter  Wave  and  Serial  Assignment  Table  and  the 
landing  Craft  and  Amphibious  Assignment  Table  (  [Pef.  10: 
p,29]   ).  They   are    normally      prepared    during      the    planning 

phase  of  the  amphibious  operation.  Once  these  documents  are 
completed,  the  necessary  data  exists  for  compilation  of  the 
landing    plan  file. 

The  preparation  of  the  preceeding  tj o  documents 
is  a  very  large,  time  consumiDg  endeavor.  It  is  extremely 
complex  and  its  intricacy  goes  up  exponentially  as  the  size 
of  the  unit.  Unfortunately,  an  automated  system  for  this 
task    does   not   exist    at   this    time. 
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TABLE 

XX 

01 

erational   Deck 

Spc 

>ts 

Interna 
Loading 

1 

External 
Loading 

Combii  ation 

Loading 

Shi^  ty^e 

A       B 

C 

D 

A 

B 

c 

D 

A 

B       C 

D 

LHA(#1) 

9      7 

U 

9 

9 

7 

2 

9 

9 

7       2 

9 

LFH(#2) 

7      -H 

n 

7 

7 

a 

2 

7 

7 

4       2 

7 

LSD(#3) 

1       1 

1 

1 

1 

1 

1 

1 

1 

1        1 

1 

LFE(#a) 

2      1 

1 

2 

1 

1 

1 

1 

1 

1        1 

1 

LSI  (#5) 

1       1 

1 

1 

0 

0 

0 

0 

0 

0       0 

0 

Helo   typ€s: 

A=CH46E 

B= 

CH53D 

C=CH53E 

D^ 

=  UJ  IN 

Sources  for  the  remaining  data  file  and  interac- 
tive parameters  depend  on  the  make-up  of  the  fleet,  number 
of  helicopters  and  landing  craft  available,  distance  to 
launch,      etc.  Fixed   values      such   as      the   helicopter      time 

factors  are  expected  values  found  in  Marine  Corps 
Fublicaticns  such  as  reference  7  dealing  with  amphibious 
operations. 

b.       Updating   Procedures 

Each  time  a  new  landing  plan  file  is  used,  all 
the  parameters  pertaining  to  the  number  of  waves,  the  number 
of  serials,  the  number  of  landing  craft  for  scheduled  and 
on-call  waves,  the  name  of  the  landing  plan  file,  etc.  must 
be   changed      to    conform      to    the      new    data.  If   this      is   not 

accomplished  an  error  will  occur  identifying  the  line  in  the 
code    where    an    inconsistency    was   found.       Most   of   those    values 
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TABLE 

XXI 

Interactive 

Parameters 

Order   of 
E€au€st 

Parameter 

Name 

Def initioi 

1 

TA 

Sched    helo   serial     # 

2 

CA 

On-call    helo    serial    # 

3 

NA 

Nonsched    helo   serial    # 

a 

TS 

Sched    surf    serial     # 

5 

CS 

On-call    surf    serL  al    # 

6 

MS 

Nonsched   surf    serial    # 

7-12 

NUS  (I) 

Ship    type    (five   types) 

13 

TRNH1 

1st    turnaround    wi  ve 

la 

NNB 

Number   of    beaches 

15 

NLZ 

Number   of    LZs 

16 

ASAEIS 

Helo    launch   disti nee 

17 

LODEIS 

LVT   launch    distance 

18 

LZDIS 

Shore    to    LZ   distance 

19 

HS7IAT?E 

Sched    wave    # 

20 

HCWA^E 

On-call    wave    # 

21 

HNWA1?E 

Nonsched    wave    # 

22 

LS^A1?£- 

Sched    wave    # 

23 

LCWA'VE 

On-call    wave    # 

2li 

LNWAVE 

Nonsched    wave    # 

25-28 

HGF  (I) 

#   helos    max   in  LL 
by   type    (U    types) 

29-38 

AT  (I) 

#   carriers    by   ty?  e 
(10    types) 

39-44 

LGF  (I) 

#    boats    max    at   baach 
by    type    (6    types) 

are    found      in  the      interactive   mode      which    helps      to   prevent 
those    types    of    errors. 


125 


other  parameters  can  be  changed  for  sensitivity 
analysis  purposes.  Since  there  is  such  a  larj e  number  of 
parameters,  all  possible  combinations  have  not  been  experi- 
mented with.  Therefore,  there  exists  the  chance  that  a 
certain  combination  cf  parameters  will  produce  an  error. 

E.   MCDEl  OUTPUT  DAT! 

'J  •   General  Description 

The  output  of  the  model  can  assume  a  variety  of 
forms  depending  upon  the  immediate  purpose  of  :  he  run.  A 
detailed  print  out  cf  each  wave  and  its  status  at  various 
times  can  be  obtained  by  changing  the  PRINT  command  to 
LPRINT  in  line  3692  cf  the  program  as  explained  in  Appendix 
C-  Currently  this  output  is  suppressed  to  expedite  the  time 
to  run  the  simulation. 

Another  form  of  output  is  the  output  data  file.  The 
current  edition  cf  the  model  sends  the  time,  total  personnel 
ashore,  and  total  firepower  ashore  to  a  file  for  use  in 
graphic  presentations.  The  program  will  prompt  the  user  to 
input  that  data  file  name  during  the  intializa;  ion  of  the 
model. 

2 •   retailed  Description 

a.   Printed  Output  Data 

The  following  terms  used  in  Table  C.8  are 
defined: 

•  Kave:  The  wave  number  currently  being  processed 

•  Activity:  1=load,  2=launch,  3=unload,  4=return, 
5=arrive,  Describes  the  landing  activity  currently 
being  conducted. 

•  Mode:  1=helc,  2=£urface.  Describes  whether  the  current 
wave  is  helo  or  surface. 
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•  Bin:    The   time    of   the  current   activity. 

•  PASH:    Personnel    ashore. 

•  FIEPWE:    Firepower   ashore    and   percent    firepof er    ashore. 
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Figure   C. 8        Exanple   of   Output, 


t.       Output    Data    File 

The  name  of  the  output  file  is  deternined  by  the 
user  when  the  prompt  queries  for  output  data  file  name.  The 
data  which  is  sent  to  the  output  file  consists  of  three 
columns.  The  first  column  is  the  time  in  minutes  of  the 
off-loading  ashore  of  a  particular  wave.  The  second  and 
third  columns  contain  the  total  personnel  ashore  and  the 
total  firepower  ashore  for  the  time  listed  in  the  first 
column.      An   example    is   found   in    figure   C.9 
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Figure    C-9        Example   of   Output    File, 

F.  SAMPLE    EUN 

S€€    Chapter    V   of    thesis. 

G.  7AEIABLE   NAMES    ABD   LOCATIONS 
See    Section    F   of    Appendix    E. 
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B.       IBIECDDCTION 

The  ship-to-shore  model  was  initiated  by  ; he  Analysis 
Support  Branch  of  the  Marine  Corps  Development  Center, 
Quantico,  Va.  in  support  of  the  Amphibious  Lift  Study,  The 
original  model  was  delivered  in  an  unusable  form  which 
prompted   revision  by    the   author.  The   purpose   5f    the    model 

is  to  simulate  the  ircvement  of  units  of  various  sizes  from 
ampiiitious  shipping  to  shore  via  surface  and  helicopter 
transportation. 
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Ihe  purpose  of  this  manual  is  to  provide  programEcer 
perscunel  of  SHIPSHOF  with  the  information  necessary  to 
effectively   maintain      and   modify      the   model.  Although    the 

flow  diagram  of  the  entire  model  exists,  due  to  its  bulk  it 
was  net  included  in  this  thesis.  However,  the  author  will 
maintain   a    copy    of    the    flow    diagram    if    one    has  n3 ed    of    it. 

C-       flCDEI    SPECIFICATICH 

The  following  provides  a  short  summary  oc  the  model 
specifications. 

1 .      Purpose 

The   purpose    of    SHIPSHOB    is    to    simulate  ai    amphibious 
ship-to-shore   movement. 


2 •      fios t  System 

IBM   Personnel  computer 
3  •      Processing    reguirem ents 

IBM    PC    with    64K    RAM    and    a   printer 

4 .  language 
Microsoft  Basic 

5 ,  Capabilities 

•  Cbserve  build-up   of   personnel    and    firepower    ashore 

•  Sensitivity   analysis  for   operational    planning 

•  Time   seguence    of   each    landing   activity   for    each    wave 

•  Predict  troop    build-up    to   gauge    progress    of    landing 

6  •      limitations 

•  Must   have    sufficient  surface    carriers    to    laid    scheduled 
ard   on-call  waves 
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•  Each  helo  wave  mtst  use  the  smae  type  of  helicopter 

•  loads  assigned  tc  a  particular  wave  cannot  be  switched 

D.   MCDEl  DZSCRIPTIOH 

1  .   Cyerview 

Ihe  model  dccumented  in  this  manual  is  rained 
SHIPSHOR.  It  is  designed  to  simulate  the  movement  of  men 
and  equipment  via  helicopters  and  surface  craft  from  amphib- 
ious shipping  to  shore  during  an  amphibious  landing. 
SHIPSHCE  is  written  in  Microsoft  Basic  and  designed  to  be 
used  en  an  IBM  PC.  However,  it  can  be  modified  tD  run  or  any 
pc  which  can  be  converted  to  run  Microsoft  Basic  formatted 
for  MDOS.  Currently  SHIPSHOR  has  no  relation  to  any  ether 
models. 

2 -      General    logic   flow 

The  model  utilizes  35  subroutines  to  attempt  to 
translate  reality  into  mathematical  computations.  A  diagram 
of  the  irodel  in  very  general  terms  is  found  in  Figure  E.I 
The  first  subroutine  in  the  program  reads  the  data  from  the 
wave  and  serial  file  and  the  parameter  file.  Also  the  vari- 
able data  is  entered  within  the  first  section  of  the 
program.  The  second  subroutine  initializes  the  arrays  and 
clocks  to  be  used  by  the  timing  and  activity  subroutines, 
based  on  the  information  found  the  wave  data  file.  These 
subroutines  essentially  complete  set-up  and  initialization 
of    the    model. 

Once  the  model  enters  the  EXEC  subroutine  it 
continues  the  time/event  procedure  until  all  waves  have  been 
landed.  The  EXEC  subroutine  is  the  control  routine  in  which 
all  waves  eventually  pass-  Based  on  the  class  of  the  wave 
(air  or  surface)  and  the  current  activity  (loid,  launch, 
unload,      return,      or   arrive    back   ship),      the    EXEC    subroutine 
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Figure   D.  1        Flow   Chart   of    the    Model. 
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will    send    the   wave   Id    i^uestion      to   the    proper    sud  routine    for 
manipulation. 

frior  to  going  to  one  of  the  activity  subroutines, 
the  program  queries  whether  certain  flags  have  been  set.  If 
they  have  been  set,  one  of  nine  routines  could  be  called. 
five  are  for  heliccpter  waves  and  four  are  for  surface 
waves.        Ihey   are      shewn   in    Figure   D.I    .  The   next    section 

will    describe      each    routine      found   in      the    model      in    greater 
detail. 

E.       EZSCEIPTION    CF    fiCDTINES 

The  following  routines  are  listed  in  order  o:  appearance 
in  the  program.  When  two  routines  appear  separated  by  a 
slash,  the  first  routine  refers  to  helicopters  and  the 
second  refers  to  surface.  The  reason  for  this  format  is  due 
to      the   siiiilarity       in      the    logic      of      the    routines.  Flow 

diagrams      of  all      the  routines      are      held    by      the    autnor      if 
needed. 

1 .      Eoutine    Na m e  :    SETUP 

a.      Purpose 

The  initial  portion  of  this  routine  c eads  values 
from  the  T-1.DAT  file,  interactive  input,  and  input  found 
within  the  code  itself.  These  values  are  used  to  dimer.sion 
arrays  used  for  landing  plan  data  and  set  up  initial  condi- 
tions for  the  simulation.  SETUP  then  opens  the  landing  plan 
file  for  input  of  the  values  contained  in  that  file.  The 
basic  language  reads  each  line  from  the  file  as  a  character 
string,  proceeds  to  strip  off  individual  pieces ,  converts 
those  pieces  into  numerical  values,  and  then  assigns  them  to 
arrays  for  later  use.  This  procedure  continues  until  the 
end  of  the  data  file  is  reached  at  which  time  the  file  is 
closed. 


133 


Another  purpose  for  this  section  is  :  o  normalize 
IHOUE,  HHODH,  and  CKCaR  by  setting  the  lowest  time  tc  zero. 
It  then  adjusts  the  other  times  to  reflect  their  original 
differences   between    the    variables. 

h.      Type   function 

This  is  a  routine  that  is  part  Df  the  main 
program.      It  is   not    a  subroutine   or   other    type  of    function. 

c.  Calling  routines 
None 

d.  Called  routines 
Calls  INITIAL. 

e.  Files  created  or  used 

This  routine  uses  two  files  for  inpjt:  T-1.EAT 
and  the  landing  plan  file.  It  also  creates  a  file  for 
output  of  the  time,  number  of  personnel  ashore,  and  fire- 
power ashore  which  is  used  for  graphical  presentation. 

f.  Flow    diagram 

Available  but  not   contained    in    this    aanual. 

2.       Sou  tine    Nai^^    MIIIAL 

a.      Purpose 

This  routine  has  several  functions  to  perform 
within  the  model  framework. 

•  It  initializes  the  time  sort  arrays  which  are  used  to 
track  the  waves  as  they  progress  through  the  various 
activities. 

•  It  initializes  the  deck  spots  and  well  der k  spots  for 
use  by  the  load  activity. 
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•  It  comfutes  times  for  landing  craft  to  launch  from  the 
ships. 

•  It  ensures  sufficient  landing  craft  for  scheduled  and 
cn-call  waves    are   available    in    the    landing    plan    file. 

•  It  initializes  the  following  arrays:  SSH,  SCH,  SNA, 
SSI,  SCL ,  and  SNA.  These  arrays  store  the  serial 
numter  and  its  corresponding  wave  number  f 3 r  each  line 
of  input  from  the  landing  plan  data  file.  They  are 
used  throughout  the  program  to  Iceep  track  of  all  the 
serials  in    a    particular    wave. 

t.      Type   function 

This  function   is   a    subroutine. 

c.  Calling    routines 

INITIAL  is  called  by  SETUP  routine. 

d.  Called    routines 

INITIAL    calls    HSSORT,    HCSORT,     LSSORT,     LCSOET. 
€.      Files  created  or    used 

None 
f.      Flow   diagram 

Available  but  not   contained    in    this    manual. 
^ •      Eoutine    Na me :    Wave    time   s or t    routines 
HSSORT:   Scheduled   helicopter   waves    time    sort 
HCSCET:   On-call    helicopter    waves    time    sort 
ENSCRT:   Nonscheduled  helicopter    time    sort 
ISSCRT;   Scheduled   surface   waves    time    sort 
ICSCET :   On-call    surface   waves   time    sort 
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INSCRT:   Nonscheduled  surface    waves    time    sort 

a.  Purpose 

The  purpose  of  the  time  sort  routine  is  to  find 
the  event  with  the  lowest  time  amongst  all  waves  within  a 
particular  class  (e.g.  HSSORT  will  search  through  the  sched- 
uled helicopter  waves  'looking'  for  the  lowest  time  for  the 
next  event).  Once  tiat  wave  has  been  identified,  the  infor- 
mation pertaining  to  its  wave  number,  classification,  time 
to  next  event,  load  factor,  mode,  etc.  will  be  transferred 
to  the  MCLOCK  array  whicn  stores  the  same  information  from 
the  five  other  time  sort  routines.  The  MCLOCK  array  is  tten 
used    ty   the   MSORT   routine  . 

b.  Type   function 
Subroutine 

c.  Calling    routines 

Each  activity  subroutine  calls  th^  time  sort 
routine  according  to  the  class  of.  wave  that  it  is  processing 
at  the  time.  For  instance,  HRID  (helicopter  load  routine), 
will  call  HSSORT,  HCSCET,  and  HNSORT  depending  an  the  class 
of  wave  being  processed. 

d.  Called   routines 
None 

€.   Files  created  or  used 

None 
f.   Flow  diagram 

Available  but  not  contained  in  this  n anual. 
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^-       Boutine    Name:    EXEC 

a.  Purpose 

EXEC  is  the  central  control  routl  ne  of  the 
model.  It  controls  the  flow  of  all  vaves  by  calling  the 
proper  routine  according  to  the  class  and  mode  of  the  wave 
which  has  the  lowest  time  for  the  next  event.  EXEC  first 
checks  whether  certain  flags  have  been  set  or  not.  These 
flags  cr 'signals  are  concerned  with  special  conditions  such 
as  lack  cf  sufficient  helicopters,  lack  of  deck  spots,  etc. 
If  the  flags  have  been  set,  the  proper  subroutine  will  be 
called  tc  make  adjustments  in  the  time  accordingly.  The 
subroutine  MSORT  is  then  called  to  provide  the  wave  which 
has    the    lowest      time    for   the   next    event.  EXEC    then    routes 

that    wave   tc  the   activity   subroutine    for    processing. 

b.  Type   function 

This  function  is  considered  the  main  program. 

c.  Calling    routines 
None 

d.  Called   routines 

EXEC  calls  or  can  call  the  followiag  routines: 
HCKLD,  STNSH/STNSL,  STOCH/STOCL,  STSH/STSL,  E ESTART/EESTAST, 
MSORT,       HELD/BRLD,  filNCH/BLNCH,       HUNLD/BUNLD,  HRTN/ERTN, 

HARIV/EAEIV. 

e.  Files  created  or    used 
None 

f.  Flow   diagram 

Available  but  not   contained    in    this    manual. 
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5.       Eoutine    Name:    HRLD/ERLD 

a.      Purpose 

This  routine  is  designed  to   load  (o:  attempt  to 
load)  a  helicopter  (surface)  wave  from  available  deck  (well) 
spots  on  the  ships.   loading  will  not  occur  if  (1)  there  are 
no  deck  (well)   spots  or  (2)   there  insufficient  carriers  of 
the  proper  type  to  carry  the  current  wave. 

t.   Type  function 

Subroutine 

c.  Calling    routines 

These  routines    are   called    from    EXEC. 

d.  Called    routines 

HELD    calls    HSSOET,       HCSORT,  HNSORT,        SPOTS    and 

ERLD    calls    LSSORT,    LCSORT^     LNSORT,    WELDEK. 

6.      Files  created  or    used 

None 

f.       Narrative 

This  subroutine  is  called  from  EXEC  when  MSCRT 
indicates  that  the  current  wave  scheduled  for  loading  has 
the    lowest      time   amongst   all      other   waves.  Ths    subroutine 

first  checks  the  class  of  the  wave  to  be  loaded  and  then  the 
deck  spot  availability.  If  spots  are  not  available  the  wave 
must  wait  for  reactivation  by  RESTART  (BESTART)  as  soon  as 
the  spots  become  available.  If  the  spots  are  available,  the 
routine  compares  the  number  of  carriers  and  type  that  are 
needed  with  the  number  of  that  type  in  the  carrier  pools. 
If  the  number  of  carriers  is  insufficient  to  lift  the  wave, 
the      wave   sort       array  is     advanced      by    10      minutes    to      await 
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return  of  sufficient  carriers.  If  either  insufficiency  case 
occurs,  the  appropriate  wave  time  sort  routine  is  called  to 
determine  the  next  wave  for  processing. 

For  the  case  of  enough  carriers  aa d  spots  to 
load  the  current  wav€,  the  wave  parmeters  are  set  for  ready 
to  load  and  launch.  SPOTS  is  called  to  compute  the  time 
interval  needed  to  load,  DLTIJ1E.  'Jpon  return  to  HELD  (ERID) 
the  time  interval  to  load  is  added  to  the  current  time, 
HOUR,  and  the  results  are  placed  in  the  appropriate  wave 
time  sort  array.  This  information  is  then  sent  through  the 
appropriate  wave  time  sort  routine  to  determine  the  lowest 
time  for  the  next  event. 

g.   Flow  diagram 

See  Figure  D.2  . 

6,       Eoutine    Nai®:    SPOTS /WE IDE K 

a.      Purpose 

This  pair  of  routines  determines  the  helc  (well) 
deck  spots  that  are  available  for  use  by  the  wave  heing 
processed  by  HELD  (BEID) .  If  the  spots  are  avail  able  a  flag 
is  set  and  control  is  returned  to  the  calling  routine 
(HELD/EEID) .  If  spots  are  available,  the  time  necessary  to 
load  CLTIME,  is  computed  then  control  is  returned  to  the 
calling  routine.  DllIME  is  a  global  variable  and  available 
throughout    the    prograir. 

t.      Type   function 

Subroutine 
c.      Calling    routines 

SPOTS/WEIDEK    is    called    by    HELD/EELD. 
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HRLD 

(Holo  wave  looa  routine) 


c'eer  t   of  heios  ,(NCAR(I); 

In  wave  i  get  helo  dooI«, 

P(n=AP(l) 


)(  class, 
C,   o'f  wave, 
C:l 


Loaa  either  on-ca11  or 
non3crie<3uiei3  wave. 

SIml lar  logic  to  that 
of  schedu'eo  wave. 


return 


Get  first  Hne,  M,  of  serial 

data  to  be  carried  by  wave;  M 

-  SSH(W,2) 


/  Are  deck  ^ 

spots 

aval lable 

.for  loadlnq. 

\ Q?,;P   / 


yes 


/  Does  next 
serial  1 Ine 
belong  to 
.this  wove?  : 


S«t  code  to  await  reload  and 

wave  tine  to  HOLD  and  FSH  to 

1st  Ttne  of  serial  for  this 

wave: 

H1CLK(U,3)-1. 

H1CLK(W.2)-H0LD. 

FSH-SSH(W,?) 


M*l 


yes 


|cet  help  type.  I;  I  ■=  SSACMriT 


Get  most  severe  load 
factor;  U0T-SSA(M.<1) 


/     Do     \ 
^    sufficient 

heios  remain 
\   In  helo   / 

\.-.p°gi?..  y 


yes 


Call  apDroprtate 

wave  class  tlae 

sort;  CALL  HSSORT 


Subtract  he'os  from  pool  1 

add  lo  carriers: 

P(I)=P(I)-SSA(M.i) 

NCAR(I)=NCAR(I)->SSA(M.d) 


Delay  reloading  t  set  code: 
HlCLK(w,2)-H 


ling  t 
.-..^/•HiCLi((U.2)*lo 
H1CLK(U.3)-1 


Call  approprfate  wave 

class  tine  sort:  CALL 

HSSOfiT 


S«t  wave  #,  code  (to  launch),  load  factor  In 
wavo  clock  data:  hiclk(w,1 )-w,  hiclk(w.3)-2. 
HlCLK(W.d).LDT 


Subtract  hclos   frofi  pool    t  specify   #    tn  wave 
clock  data,   for  all    I:   AP(I)-P(I), 

H1CLK(W.I->6)'NCAR(I) 


Set  f1sg  signifying  this  wave  can  launcn: 
H1CLK(W.0)-1 


Cell  SPOTS  lo  determine  time  Interval,  OTIME. 

that  Is  necessary  for  this  wove  to  load  and 

find  *,  NS.  of  deck  spots  that  are  to  be 

used  by  this  wave  and  If  any  deck  spots 
re«aln  available  for  sutjsequent  waves 


CC-C,  WU-U.  USET-0,  WTYP-TYP,  WNS-NS,  WLDT-LDT 


Set  time  to  launch  and  serial  line  t'. 
H1CLK(W.2)-H0UR*DLTIHC.  FSH-H 


I 


If  this  Is  last  wavo  of  this  type,  set  signals 


Call  appropriate  wave  class  tine  sort 


Figure  D.2    Flow  Diagram  of  HELD/BRLD. 
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d.  Called  routines 
None 

e.  Files  created  or  used 
None 

f.  Flow  diagram 

Available  but  not    contained    in    this   n anual. 

7.       Boutin e    Name;    HINCH/BINCH 

a.      Purpose 

These  routines  launch  a  wave  from  ships  and  determines  the 
time  it  will  arrive  at  the  landing  site.  It  determines  the 
number  of  deck  (helc  or  surface)  spots  made  available  to 
subsequent  waves  and  restores  those  spots.  Also  it  reevalu- 
ates the  loading  time  for  a  wave  being  loadei  which  had 
employed   all  of    the    remaining    deck    spots. 

t.      Type   function 

Subroutine 

c.  Calling    routines 

These  routines  are  called  from  EXEC. 

d.  Called    routines 

HLNCH    calls    HSSORT^    HCSORT,       HNSORT,       HLCDCK    and 
BLNCH    calls    LSSOET,    ICSORT,     LNSOET. 

e.  Files  created   or   used 
None 


iai 


f.  Narrative 

These  routines  are  called  from  EXi;  C  when  the 
time  for  launching  the  current  wave  is  lowest  among  all 
ether  classes  of  waves  processed  by  MSOET.  The  subroutine 
first  checks  the  class  of  the  wave  and  then  gets  the  first 
line  of  serials  in  that  wave  to  be  carried.  The  number  and 
type  of  carrier  is  obtained  from  the  wave  time  sort  array. 
A  launch  signal  is  placed  in  the  serial  lines  far  this  wave 
and  the  load  factor  is  extracted  from  the  wave  time  sort 
array.  The  time  interval,  DT,  from  launch  to  arrival  at  the 
IZ  is  computed  using  the  various  input  data  such  as  launch 
distance,    carrier   speed,    load   time,    etc. 

Before  setting  the  appropriate  wavs  time  sort 
array  (helos  only)  tc  the  arrival  time  at  the  LZ,  a  check  is 
made  to  see  if  all  the  deck  spots  are  in  use  by  the  current 
wave.  If  so,  then  the  launching  of  the  current  wave  would 
make  available  a  certain  number  of  spots  for  the  next  wave. 
If  not  all  the  spots  are  in  use,  the  routine  HIODCK  is 
called  to  reevaluate  the  helicopter  deck  spot  employment  to 
determine  how  many  spots  will  be  available  after  launch  of 
the    current    wave. 

Finally,  the  time  to  load  is  determined  by 
adding  DT  tc  the  current  time,  HOUR,  and  setting  the  proper 
code  for  launch.  A  call  to  the  appropriate  wave  time  sort 
routine  fellows  these  computations.  Any  deck  spots  used  by 
the    currnet    wave  are   then  restored    upon    launch. 

g.  Flow   diagram 
See    Figure   D.3    . 
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MLNCH 

(Heio   Munch  routine) 


Check  cIbss.N 

C,  of  wave, 

C:] 


Launch  eHher  oo-call  or 

nonscheOuled  wave  In 

siBit  lar  manner 


Get  f1r»i  line,  M,  of  serial  aata  to  De 
carrlea  Dy  wave;  H-SSH(w,?) 


retcrn 


Get    type   (TyP)   i   /  of   helos    In  wave  from 

wave  clock  data:    NCARaYP)-HlCLK(U,TYP.6) 

for  non-zero  H1CLK(W,I*6) 


Set  wave  launch  signal:  S5A(M.7)=l  (for  all 

wave  serial  llnesT.  Get  load  factor,  LOT, 
from  wave  clock  data. 


Calculate  time  Interval.  OT,  fro«  ship  to  LZ 

(In  minutes): 
DT-(ALADIS*LZt)IS)*60/HSP0(LDT)->  HTF(6,L0T)  ♦ 
HTF(;.LDT) 


/  Old  this  \ 
wave  utn  Ize 

an 

^    renal ning 

Xdegf  spots/ 

aval  lable  to 

load?  C:CC 

and  u:ww 


yes 


r 


S«t  slonal:  WSET-i  (to  call  RESTART).  Clear 
CC  4  WV:  CC-0.  ww-o,  CCl-0,  wwi-0.  Set  deck 
spot  avalllblllty;  DS-1 


CALL  HLOOCX:  wtiere  If  cC-0  then  retu-n;  If 

not.  zero  CCl  and  WWl.  If  wave  code  of  wave, 

WV-?  (signifying  launch) 

arxJ  If  wave  launcn  slpnil,  HlCLK(ww.O). 

-  1  then  set  CCl  >=  CCT  and  set  uwi  •  WW 

and  return 


Set  tine  and  code  (3)  for  arrival  at  LZ: 

HiaK(U,2)-H0UR-DT.    HiaK(W,3)-3.    Call 

appropriate  wave  class  time  sort 


Get   *   4   type    (load   type)    of   deck   spots   (PAC) 

that   were    In  use  Dy   this  wave  Just   prior    to 

this    launch:    PAC*hEST(LDt .TYP)- 

Hn<;Tti  nr.TYP) 


< 'compare  PAc\ 
with  4,         ^ 
(NCAR(TYP)), 
of  helos  In  / 


Restore  all  deck 

spots:  for  a) 1 

J,K: 

^OST(J.K)-HEST(J.K) 


Restore  only  those  deck  spots  that  were 

being  used  by  this  wave  (It  itake  tr** 

available  now,  along  with  proportional 

deck  spots  of 

other  load  types  and  heio  types: 

Rf-NCAR(TYP)/PAC  for  all  J.K: 

H0ST(J,K)-HOST(J,K)*Rf  (HEST(J,K)-HOST(J.lf) 

) 


Figure  D, 3    Flow  Diagram  of  HLNCH/BLNCH. 
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8.      loutine    Mme:    HUNLD/EUNLD 

a.      Purpose 

These  routines  determine  whether  or  not  landing 
sites  ar€  still  occupied  by  previous  waves  and  if  sc,  delays 
the  landing  of  the  current  wave  until  the  pertinent  zones 
are  free  to  use.  Also  it  calculates  the  length  of  time 
necessary  for  the  current  wave  to  unload  (constrained  by  the 
size  of  the  landing  zone). 

t.   Type  function 

Subroutine 

c.  Calling    routines 

These  routines    are    called    from    EXEC, 

d.  Called    routines 

HDNLD  calls  HSSOET,  HCSORT,  HNSOfiT  and  EUNLD 
calls    ISSOET,    ICSOP.T,    LCSORT. 

e.  Files  created  or   used 
None 

f.  Narrative 

These  routines  are  called  from  EXEC  when  the 
time  for  landing  at  the  landing  site  is  lowest  among  all 
ether  classes  of  waves  processed  by  MSORT-  The  subroutine 
first  checks  the  class  of  the  wave  and  then  gets  the  first 
line  of  serial  data  in  that  wave  to  be  processed.  The 
number  and  type  of  carrier  is  obtained  from  the  wave  time 
sort  array. 

Next,  each  line  of  serial  data  is  examined  to 
determine  its  destination.  If  one  of  the  lai ding  zones/ 
beaches  is   occupied  by   a  prior  wave,    the  wave   time  sort 
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array   is   set   to   await  clearance   of   the   laa ding   site. 
Control  then  returns  to  EXEC. 

If  all  of  the  zones  are  clear,  HUNLD/BUNID 
computes  the  land  and  unload  time  interval,  ZEIHE.  That 
time  is  added  to  the  current  time,  HOOR,  the  event  code  is 
set  to  "return  to  ship",  and  the  appropriate  wave  time  sort 
routine  is  called.  Finally,  the  time  for  completion  of  the 
unload  is  computed  and  placed  in  an  array  which  is  checked 
ty  sutsequent  waves  to  determine  occupancy  of  the  landing 
site . 

g.   Flow  diagram 

See  Figure  D.4  . 

5-       Boutine    Name:    HHTN/^ERTN 

a.      Purpose 

The  purpose  of  these  routines  is  to  print  a 
running  total  of  the  personnel  ashore  and  th;  firepower 
ashore.  Also  HETN  calculates  the  time  that  the  wave  will 
return  to  the  area  of  the  shipping  and  hence  be  available 
for    fcrmaticn   of   subsequent    waves. 

k.      Type   function 
Subroutine 

c.  Calling    routines 

These  routines  are  called  from  EXEC. 

d.  Called    routines 

HRTN  calls  HSSOET,  HCSORT,  HNSORT  anl  EETN  calls 
LSSOET^    ICSCRT,     LNSORT. 
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MUNLO 

(He'o  off-load  routine) 


Check   class.^ 

C.   of   wave: 

C:l 


Handle  on-call    t 

nonscheduled  Baves   ta 

sIm!  lar  tianoer 


Get   f!rst    line.   H,   of   9er1ai   date   to  be 
carried  by  wave,    M-5SH(W,2) 


return 


Get  #.  NCAR(I),  of  helos  In  wave  clock 
data  for  all  i:  ncao(I)-miclk(w. j-»6) 


Clear  delay  table  and  landing  2one  table 
for  all  l.j.K:  DLABATC 1,J.K)=0  for  aliK: 


Does  next  ^ 
»er|ai  data 
line  belong 
to  tnts 


Next  line 
M  -  M*l 


X^{')'.\i' 


yes 


Frow  serial  line  data,  get  nelo  type 

(1),  load  factor  (LOT),  and 

Oe^tlnatlon  of  serial  (OEST): 

I-SSA(M,3):  L0T-SSA(M,5): 

0ES1-SSA(M,6) 


as  zone  freeV 
of  previous 

waves?  , 

ZN(DE5T):H0Up/ye5 


no 


Tally  t   of  helos  Into 

zone 

DLABAtn. LOT. OEST)  • 

OLABAtIi. LOT. OEST)  * 

SSA(M,4)  Set  signal: 

Z0NE(DE5T)  -  1 


Set  wave  landing  tl"e  to  await  clearing 

the  rones  HiaK(W,2)«ZN(DEST): 

HlCLK(W.3)-3  Call  appropriate  wave  class 

tine  sort. 


return 


Find  type,  I,  of  helos  In  wave  for  all 
landing  zones.  K:  DTIME(K)  -  0 


>,*. 


/     For    all 
1    J    K  • 
DLABA*T('l,'j,K) 


•  Inlsfied  for 
all    I.J.K7 


TTes" 


3LABAT(I.J.K)-DLABAT(1. 

J,K)  -  HGTd): 

DTIME(K)-DTIHE(K)  ♦ 

HTF(l.J)  ♦  HTF(2.J)  ♦ 

HTF(8,J) 


ZTIME 


ZTIME  -  MAX(DT1HE(K))  Over  all  landing 
zones.  K 


Set  wave  clock  to  finish  inloading  and 

prepare  to  retv^n  to  ships: 
Hia.K(W.?)-H(XJR  ♦.  ZTIME 


Set  to  delay  subsequent  waves  Into 

aoproprlale  LZ  until  this  wave  finishes 

tarxjlng  operation;  for  all  K  for  which 

Z0N£(K)-1:  ZN(K)-H1CLK(U,2) 


Call  appropriate  wave  class  tl»e  sort 


return 


Figure  D. a    Flow  Diagram  of  HONLD/BONLD. 
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e.  Files  created  or  used 
None 

f.  Narrative 

These  routines  are  called  from  SXS C  when  the 
time  fcr  unload  completion  is  lowest  among  all  other  classes 
of  waves  processed  by  MSORT,  The  class  of  wave  is  checked 
and  the  time  interval  necessary  to  return  to  the  ship  is 
calculated. 

The  running  totals  of  personnel  and  firepower 
ashore  are  tallied  and  sent  to  either  the  screen  or  the 
printer.  The      code      indicating    that      unloading      has      been 

completed  is  set.  Finally,  the  wave  time  sort  array  is 
updated  with  the  time  interval  to  arrive  back  at  the  ship 
and  the  appropriate  wave  class  time  sort  subroutine  is 
called. 

g.  Flow   diagram 
See    Figure   D.5    . 

10-    Routine    NaSL§-   MMIZMil^ 

a.      Purpose 

These  routines  return  the  carriers  to  their 
respective  jools  for  use  in  forming  subsequent  waves  after 
degrading  the  number  of  helicopters  to  reflect  attrition 
losses.  It  also  initiates  the  loading  process  for  subse- 
quent waves. 

t.   Type  function 

Subroutine 
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HR1N 

(Helo  wave  dear  l7  &  return) 


Determine  time  Interval  for  wave  to 

return  to  Shlo:  DT>=HTI- (  3  ,  ]  )*H7M  4  .  1  )  ♦ 

(LZDIS*ALA0IS)*60/HSP0(1) 


i:rieck  class/ 

C,  of  wave 

C:l 


31 


Get  first  Mne.  H.  of  serial  data  that 
•09  carried  by  wave:  M  -  S5H(U.?) 


Set  serial  line  signal  tnat  serial  has 

landed  ashore:  SSA(K.7) 

Add  to  total  personnel  ashore  over  a'l 

LZ  and  beaches;  PA$H-PASH-SSA(H.2 ) 

Add  to  total  flrepovirer  ashore  over  all 
L2  and  beaches:  SFASH-5FASH-»SSA(M,0) 


Advance  serial  line  count:  M  =  M*l 
'1 


<Does  next  ^ 
serial  data 
1 1 ne  be  1 ong 
to  this 
wave?:   / 
55A(K:l5:y 


yes 


Prfnt  "Personnel  Ashore"  and  Tlrepower 
Ashore" 


Set  wave  stgnai  that  this  wave's  serials 
are  ashore:  HlCLK(W,0)-2 


Set  wave  clock  to  t'me  wave  win  arrive 

bock  at  ship:  H1CUK(U,0)-OT»HOUR 

Set  cooe  (5);  HlCLK(W.3)-5 


Call  appropriate  wave  class  time  sort 


return 


Handle  on-cal 1  and 

nonscneduled  waves  In 

siml lar  manner 


return 


Figure  D.5    Flow  Diagram  of  HRTN/BRTN. 
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c.  Calling    icutines 

These  routines  are  called  from  EXEC. 

d.  Called    routines 

HAEIV  calls  HSSORT,  HCSORT,  HNSOfiC  and  EARIV 
calls    ISSOEI,    LCSORT,    INSORI. 

€.      Files  created  or   used 

None 

f.  Narrative 

These  routines  are  called  from  EXEC  when  the 
time  for  arrival  bacX  to  the  ship  is  the  lowest  among  all 
other  classes  of  waves  processed  by  MSORT.  The  class  of  the 
wave  is  checked.  If  the  returning  wave  is  of  the  scheduled 
class,  the  numter  and  type  of  carriers  are  placed  in  a 
carrier  pool.  At  this  point  reduction  of  the  returning 
carriers  can  be  made  by  an  attrition  factor.  Currently  the 
model  is  set  to  place  all  of  the  returning  carriers  into  the 
pool.  However,  by  changing  line  4310  (helo)  or  line  6660 
(surface^  in  the  program,  the  attrition  can  be  set  to  what- 
ever value  desired. 

Next,  the  returning  wave  time  sort  irray  is  set 
to  a  high  value  to  prevent  that  wave  from  being  processed 
again.  If  the  current  wave  is  the  last  of  the  class,  the 
appropriate  wave  time  sort  routine  is  called  anl  control  is 
returned  to  EXEC.  Otherwise,  the  routine  finds  the  next 
wave  to  load  and  sets  the  proper  codes. 

g.  Flow  diagram 
See  Figure  D.6  . 
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HARIV 

(Helo  wave  arrtve  Dack  at  snto) 


/  Determine  \ 

class,  C,  of 

wave:  C:l 


find  i   and  tyoe  of  heios  returning  to 
helo  Dools  (for  future  use):  ih-i 


no 


of  tyoe.X 
TH7:     \ 

HiaK(U,TH*6)  > 


y««|  <> 


Place  #  In  NH:  NH-H1CLK(w.TH*6):0 


IS  this  •ave\ 

part  of 

Initial 
waves    , 
>.  levncncd?  / 

5:TnNMr 


y«« 


Allow  for   losses:   NH«.8»NH 


R»turn  wave  helos  to  appropriate  pool; 

AP(TH)-APOh)*NH 


/Is  this  tne\  _ 

last  type  of  X"®  i 1 

helo?  fH:W     )-*\    TH-TH->1     Y' 


y*s 


Set  rettrntng  wave  dock   tlt>e  to 
Infinity;   HiaK( v.? )-LATE 


Handle  on-c«l 1  t 

nonscneduied  waves  In 

similar  wi^nner 


<Has  last  ^ 
serial  of 
this  class 
Seen  picked 
up?    / 


y»« 


'Are  oo-cei 1 

waves  being 

cal led  by 

^tlwe  and.  If 

o.  ere  they' 

In  process?: 

OCHCK:?  and 

SSE.T :  1 


^ 


Get  1st  line  of  serial  data  for  next 
scheduled  wave:  M  -  FSH;  W  -  SSA(M,l) 


Set  1st  serial  data  line  for  this  wave: 
SSH(U.2)-FSH 
Set  teaoorary  pools  fro"  periienent 
helo  pools  for  all  J;  P( I)-AP(l) 


/   Is  Pth   \ 
serial  data 
line  part  If 

,  this  wave's  ^ 


yes 


H-M*l 
T 


Get  helo  type:  I-SSA(m.3) 


Reset  FSH: 
FSH-fSHOLD 


"o  /  sufficient 
helos  renain 
In  Dool?:   . 
MI)lSSA(M.4/ 

1  yes 


Subtract  helos  from  pooli 
P(I)-P(I)-SSA(H,4) 


'Is  this  Ihe^ 
last  serial 
line?  MjTA 


ye* 


Set   tt»e  and  code  for  wave  to   load: 
H1CLIKW.;)-H0UR;    HiaK(W,3)-l 


T 


Call   appropriate  wave  tl»e  sort 


Reset   FSH:    FSH-M 


Call  scheduled  wave  time  sort 


rettrn 


Figure  D. 6    Flov  Diagram  of  HARIV/BARIT. 
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11.    Routine    Nafie:    EESTA ET/EE5TAET 
a.      Purpose 

This  pair  cf  routines  is  used  to  restart  timing 
for  waves  stalled  by  insufficient  helicopter  deck  spots  or 
landing  craft  well  deck  spots.  If  there  are  not  enough 
deck/well  spots  available,  this  routine  adjusts  the  tiite  to 
load  ty  adding  a  time  increment  onto  the  wave  sort  array. 
Essentially,  this  action  delays  the  loading  un:  il  a  reass- 
essment determines  the  availitilty  of  spots  for  the  wave 
which    is   next    to   load. 

These  routines  also  serve  a  second  function  and 
that  is  to  add  an  increment  of  time  to  the  wave  sort  arrays 
when  switching  from  one  class  to  another.  This  short  delay 
is  designed  as  a  break  in  the  process  to  simulat  e  the  shift 
from    one   class    of    wave   to  another. 

t.      Type   function 

Subroutine 

c.  Calling    routines 

This   routine   is    called    from    EXEC. 

d.  Called  routines 

RESTART  calls  HSSOBT,  HCSORT,  HNSORT  and  3ESTART 
calls  ISSORT,  LCSORT,  LNSORT. 

e.  Files  created  or  used 
None 

f.  Flow  diagram 

Available  but  net   contained    in    this   nanual. 
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12.  Routine  Na^e:  STOCH/STCCL 

a.  Purpose 

These  routines  initiate  on-call  waves  to  load 
after  the  final  scheduled  wave  commenced  to  load.  A  signal 
is  set  by  HELD  (ERLD)  when  the  last  scheduled  helo/surface 
wave  has  begun  the  leading  activity.  This  routine  then  sets 
up  the  on-call  waves  to  begin  the  loading  process.  If  the 
signal  for  on-call  waves  to  interrupt  the  scheduled  waves 
has  been  set,  this  routine  would  return  immediately  to  EXEC 
and    not    be    used. 

b.  Type  function 
Subroutine 

c.  Calling    routines 

These   routines    are   called    from    EXEC. 

d.  Called    routines 

These  routines  call  EESTART/BESTART. 
€.   Files  created  or  used 

None 
f.   Flow  diagram 

Available  but  not  contained  in  this  n anual. 

13.  Routine    Nai«:    STNSH/STNSl 

a.      Purpose 

The    purpose   of    these    two   subroutines    is   to    start 
the    ncnscheduled  helo/surface   waves      after    the   final   on-call 
wave    has   conmenced    to   load.         A   signal   is    set   by    HELD    (ERLD) 
which    tells    the    EXEC    when    the      last   on-call    wave    has   started 
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loading.     EXEC   then  calls   this   routine   to  set   up   the 
nonscheduled  waves  fcr  loading. 

t.   Type  function. 

Subroutine 

c.  Calling  routines 

These  routines  are  called  by  EXEC. 

d.  Called    routines 

These   routines    call    RESTART/BESTART. 
€.      Files  created  or    used 

None 
f.      Flow   diagram 

Available  but   not    contained    in    this   nanual. 
14-    Foutine    Nai§:    STSH^STSL 

a.  Purpose 

The  function  of  these  two  routines  is  to  restart 
scheduled  waves  that  have  been  interrupted  by  on-call  waves. 
If  the  flag  is  set  to  have  on-call  waves  break  into  the 
scheduled  wave  sequence,  the  scheduled  waves  are  temporarily 
halted  by  another  routine.  Once  the  designated  cn-call 
waves  are  complete,  the  scheduled  wave  sequence  r€suiii€s  by 
the   calling   of    STSH/SISL. 

b.  Type   function 
Subroutine 
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c.  Calling    routines 

These  routines  are  called  from  EXEC. 

d.  Called  routines 

These  routines  call  RESTAET/BESTART. 
€.   Files  created  or  used 

None 
f.   Flow  diagram 

Available  but  not  contained  in  this  oanual. 

1 5 .  Routine  Naa§ -  HCKLD 

a.   Purpose 

This  routine  reevaluates  the  helir  opter  deck 
spot  employment  if  the  current  wave  does  not  occupy  all  of 
the  spots.  By  doing  this  the  model  can  determine  how  many 
additional  spots  are  available  for  the  next  wave.  This  will 
indicate  that  either  the  next  wave  can  load  or  a  delay  will 
be  encountered  caused  by  a  lack  of  deck  spots.  As  seen  as 
enough  spots  are  available  a  flag  will  be  set  to  initiate 
loading  of  the  next  wave. 

,  ^   b.   Type  function 

Subroutine 

c.  Calling    routines 

This  routine  is  called  by  EXEC. 

d.  Called   routines 

This   routine   calls    WSPOT. 
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€-   riles  created  or  used 

None 
f.   Plow  diagram 

Available  but  not  contained  in  this  n anual. 

16.  Eoutine    Name:    HIODCK 

a.      Purpose 

HLODCK  is  a  short  routine  which  sets  up  addi- 
tional signals  required  to  call  HCKLD  from  EXEC.  Those 
signals  indicate  whether  there  are  any  available  deck  spots 
left    after    the   current   wave    has   loaded. 

h.      Type   function 

Subroutine 

c.  Calling    routines 

This  routine  is  called  from  HLNCH 

d.  Called    routines 
None 

€.   Files  created  or  used 

None 
f.   Flow  diagram 

Available  but  not  contained  in  this  n anual. 

17.  Eoutine  Name:  WSFOT 

a .   Pu  r  p  OS  e 

This  routine  calculates  the  number  of  helo  deck 
spots   to  be   used  by  the  current   wave  and  then  how   many 
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remain  for  use  by  the  next  wave.  This  provides  inforiration 
required  ty  HCKLD  tc  determine  whether  the  nei t  wave  can 
load    or    has   to    delay    until    the   current    wave   launches. 

t.      Type   function 

Subroutine 

c.  Calling    routines 

This  routine  is  called  by  HCKLD. 

d.  Called  routines 
None 

e.  Files  created  or  used 
None 

f.  Flow  diagram 

Available   but  not   contained    in    this   nanual. 

18.    Routine    Name:    MlilSH/HALTSL 

a.      Purpose 

These  routines  will  stall  the  remaining  sched- 
uled waves  when  they  are  interupted  by  on-call  waves.  If 
the  flag  is  set  to  interrupt  scheduled  waves,  this,  routine 
is  called  prior  to  commence  men t  of  the  on-call  waves.  Then 
once  the  on-call  waves  designated  to  interrupt  have 
completed  leading,  a  flag  will  be  set  to  call  STSH/SISL 
which    restarts    the    stalled    waves. 

t.      Type   function 

Subroutine 


156 


c.  Calling    xcutines 

This  routine  is  called  from  EXEC. 

d.  Called  routines 
None 

€.      Files  cr€ated  or   used 

None 
f.      Flow   diagram 

Available   but  not    contained    in    this   nanual. 

F.        DATA    EASE   DESCBIPTION 
"J  •      Pile  name:    Landing    Flan    data    file 

a.  Purpose 

Input  data  is  broken  down  into  three  categories. 
The  largest  group  of  data  is  found  in  the  landinj  plan  file. 
An  example  of  this  file  is  found  in  D.7  .  The  landing  plan 
file  contains  the  wave  and  serial  data  which  is  processed  by 
the  model.  It  has  type  of  carriers,  number  of  personnel, 
wave  number,  destination,  etc.  for  each  serial  going  ashore. 
Its  purpose  is  to  provide  the  model  with  the  troop  unit, 
equipment,  and  transportation  information  which  will  be 
•moved  ashore'  by  the  simulation. 

b.  Format 

The  landing  plan  file  rei^uires  the  itanual 
construction  of  serials  and  assault  waves  in  a  specific 
format.  Each  line  in  the  data  file  contains  ti  elve  pieces 
of  information  which  the  Bodel  requires.  These  are 
explained  as  part  of  an  example  listed  in  the  'help'  file 
under  landing  plan   file  (Section  B) .    This  in;  ormaticn  is 
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15, 

317, 129, 

33,35, 1979, A, A, 3, I,R-i,615 

IS, 

348, 123. 

33,35, 1878, A, A, 8, I,R-2,615 

IS, 

37B. 129, 

33,35, 1873. A, A, 9, I.R-3.615 

2S, 

317, 128, 

33,35, 1879, A, A, 3, I, R- 1,61 5 

2S, 

34S, 128, 

33,35, 1878, A, A, 8, I,R-2,615 

2S, 

379, 128. 

33,35, 1879, A, A, 8, I,R-3,615 

3S, 

317,290, 

66 , 70 , 3560 , A , B , 9 , I , R- 1 , 1 230 

35, 

340,290, 

66,70,3560, A, B, 9, I,R-2, 1230 

35, 

383,290, 

66 , 70 , 3560 , A , B , 9 , I , R-3 , 1230 

45, 

1021 ,50, 

943,5476,37414. A, B,9, I, R- 1,360 

45, 

1025, 50, 

949,5476,374  14, A, B,9, I,R-2,360 

45, 

1030, 50, 

<^48,  5476,  37414,  A,  B,9,  I,  R-3,  360 

55, 

329. 112. 

42,34,941, A, A, 7, I, R- 1,651 

55, 

359, 112, 

42,34,841, A, A, 7, I,R-2,651 

5S, 

399. 112, 

42.34,341 .A. A. 7,  I. R-3. 651 

65, 

32^, 112, 

42, 34, 941 , A, A, 7, I , R-1 , 651 

63. 

359, 1 12, 

42, 34, 941, A, A, 7, I,R-2, 651 

^,c 

389, 112, 

42  .  34  ,  1^4  1  ,  A ,  A  ,  7  ,  I  ,  R-3  ,  65 1 

"S, 

1021 ,62, 

56  1  , 32^6 , 230 1 5 , A , A . 2 .  I . R- 1 , 225 

Figure  D.7    Example  of  Landing  Plan  Data  File. 

also  located  on  the  same  disk  as  the  main  program  and  is  for 
use  in  constructing  the  data  file.  A  copy  of  the  *help* 
file  is  located  in  Appendix  E. 

c.  Routines 

This  file  is  called  by  the  SETUP  routine. 

d.  Updating 

Each  time  a  new  landing  plan  is  usad,  all  the 
parameters  pertaining  to  the  number  of  waves,  the  number  of 
landing  craft  for  scheduled  and  on-call  waves,  the  name  of 
the  landing  plan  file,  etc.  must  be  changed  to  conform  to 
the  new  data.  If  this  is  not  accomplished  an  error  will 
occur  identifying  tie  line  in  the  code  where  an  inconsis- 
tency was  found.  Mcst  of  those  values  are  found  in  the 
interactive  mode  which  helps  to  prevent  those  type  of 
errors. 
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2-   liie  name:  T-1.DAT 

a.   Purpose 

This  data  file  contains  parameter  i  alues  which 
are  not  subject  to  constant  change  (see  Figure  D-8  ).  The 
three  major  tables  of  this  type  are  the  helicopter  time 
factors,  toat  time  factors,  and  operational  deck  spot 
tables.  The  first  two  provide  the  expected  times  for 
various  evolutions  to  utilize  and  the  last  gives  the  deck 
spots  under  various  conditions-  Tables  XXII,  XXIII,  and 
XXIV  list  the  data  which  are  read  from  T-1.DAT.  The  purpose 
of  this  file  is  to  read  data  into  various  arrays  within  the 
program  which  will  be  used  to  compute  event  times. 


C"TYFE  T-l.DAT 

9. 7. 4,?, 9, 7, 2, 9, 9, 7, 2. 9, 7. 4, 4. 7. 7, 4, 2. 7. 7, 4. 2 

K  1  !  1  ,  1  .  1  .  1  .  1  ,  1  .  1  .  1  .  1  .  1  .  0 .  0 .  0 .  0 ,  1.1 .  Ci ,  0 .  0 

0.0.0,1,1,4.4.4,4,1.1,1.5.8.10,4,4,4,4,4 

1 20 ,  100,  1 00 . 8 . 9 ; 1 2 ,  11,20,20 

1  ,  1 ,  1  .  1  .  1 ,  1 .  4 ,  1 0 .  1  (!) .  1  <:) ,  1 0 .  1 0 ,  1 

2,  1,  1.  1,  1.  1.  1,  1,  1,  1.  1.  1.  1 


1  .  1.  1 .  1  .  1,  1.  1.  1.  1.  1.  1.  1.-.  1.  1. -. 


4,1.1,1 


1  .  1  ,  1  .  1  .  1 , 1.") ,  10,  10,  10.  10,  1 '.") .  0 


Figure  D. 8    Example  of  Data  File  T-l.DAT. 


t.   Format 

The  first  two  lines  of  the  T-l.DAT  file  refer  to 
Table  XXIV  .  The  data  is  listed  in  the  file  row  by  row  from 
the  table.  Thus,  the  first  twelve  values  come  from  row  one 
of  the  table.  The  next  line  contains  data  from  table  XXII  . 
It  is  listed  in  the  same  manner  as  Table  XXIV  except  the 
first  four  values  come  from  the  first  row  of  the  table. 
line  four   lists  three   helicopter  speeds   then  3  ix   landing 
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TABLE    XXII 
Helicopter  Time   Factors   in   Hinutes 


Tie©    of    Load 
Helg    wave  operation 

(1)  Land    in    zone 

(2)  Disenbark    troops    (cargo) 

(3)  Takeoff/rendezvous   frcni   LZ 
CI)    Haneaver/la  nd    ship 

(5)  Refuel/embark    troops     (cargo) 

(6)  Takeoff /rendez  vous   from    sliip 

(7)  Maneuver/land    in   IZ 
(0)    Safety   clearance    time 


Interna 

1 

ExL 

er  nal 

Cofflbined 

0 

0 

0 

1 

1 

^ 

4 

t« 

^ 

1 

1 

1 

5 

8 

10 

4 

1 

^ 

1 

a 

^ 

1 

1 

1 

craft  speeds.  The  vehicles  for  which  these  speeds  are 
listed  are:  CH-53,  CH-46,  0H1N,  LVT,  LCM-6,  LCM-8,  LCU,  LST, 
and  LARC.  The  last  two  lines  of  the  file  contain  data  frora 
Table  XXIII  They  are  also  listed  by  row.  Ssction  C  of 
Appendix    E    contains    the   format    for    the    T-1.DAT   file. 

c.  Routines 

This   file  is   called    by    the    SETUP    routine. 

d.  Updating 

Updating   is   not    necessary      unless    different   time 
facjtors    ate    desired    fcr   use. 
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TABLE    XXIII 
Boat   Time  Factors  in   Minutes 


Boai    «a»G  operation 

(1)  Land    at    beach     (or   LZ ) 

{2)  DlsenbarV    troops/load 

(3)  RcndczTous    for    return 

(<l)  Deck    tine    to    ship    (well    deck) 

(5)  Ref uel/cBbark    troops/load 

(6)  Circle   and    rende7voils 

(7)  land    at    beach 

(8)  Safety    clearance    tine 


Boat    type 

ill 

LcarL 

IjCflrS 

Leg 

iST 

LABC 

LCAC 

1 

1 

1 

1 

1 

1 

1 

4 

10 

10 

10 

10 

10 

15 

1 

1 

1 

1 

1 

1 

0 

0 

10 

10 

10 

10 

10 

10 

0 

5 

5 

5 

5 

5 

15 

1 

2 

2 

2 

2 

2 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

3-  iiii  Name:  Interactive/line  input 

This  data  source  is  found  within  the  progran  itself  as 
either  a  line  of  code  or  as  an  interactive  query.  The  data 
is  of  the  type  that  nay  be  changed  easily  for  various  types 
of  analysis.  Although  this  source  is  not  a  file,  it  is  the 
final  means  used  to  assign  values  to  the  remaining  vari- 
ables. Once  the  first  two  files  are  prepared,  the  model  is 
loaded  into  the  computer  and  initiated.  The  program  will 
query  the  user  to  input  data  for  the  parameters  which  are 
most  likely  to  change  during  any  type  of  analysis.  An 
alternative  is  to  change  the  code  within  the  program  itself 
where  scire  of  these  values  are  found. 

a'.   Format 

Figure  D.9  contains  an  example  of  the  interac- 
tive input  while  the  parameters  that  are  requested  are 
listed  in  the  Table  XXV  . 
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TABLE    XXI7 
Operational  Deck   Spots 


Internal 
Loading 

External 
Loadinq 

Combii 
Load 

ation 
in^ 

Shi^  type 

A 

B 

C 

D 

A 

B 

c 

D 

A 

B 

C   D 

LHA(#1) 

9 

7 

a 

9 

9 

7 

2 

9 

9 

7 

2   9 

LPH(#2) 

7 

4 

a 

7 

7 

4 

2 

7 

7 

4 

2   7 

LSC(#3) 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1   1 

LPr(#4) 

2 

1 

1 

2 

1 

1 

1 

1 

1 

1 

1   1 

LSI  (#5) 

1 

1 

1 

1 

0 

0 

0 

0 

0 

0 

0   0 

Helo    types:     A=CH46I         B=CH53D         C=CH53E         D=Ui  IN 


t.      Eoutines 

None 

c.      Updating 

Updating      of      this      inpat        data      is      relatively 
simple.         The   majority   of    parameters      which   wouli    need    to   be 
changed      will      be      reguested      by      the      interactive      queries, 
ethers   can   be      changed   by   a    direct   overwrite      in    the   program- 
listing. 

G.       SCDBCE    IISTIHG 
See    Appendix   F. 
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RUN 

I  OF  SERIAL  LINES  OF  DflTfi  FOR  SCHED,ON-CALL,   i  fJONSCHED  HELO  THEN  3URFACE:69,23,0,AO,0,0 

Setup  17907 

»  OF  SHIPS  BY  TYPE  (LHA,LFH,LSD,LFD,LST) :5,7, 1,7, 1 

1ST  TURNAROUND  SCHED  HELO  WAVE: 14 

»  OF  3EACHES  AND  I  OF  LANDING  Z0NE3M.,7 

HELO  LAUNCH  DISTANCE,  BOAT  LAUNCH  DISTANCE,  AND  SHORE  TO  LZ  DISTANCE:50,2,5 

LHOUR  AND  HH0UR:017000,0 

I  OF  WAVES  IN  ORDER  SCHED,  ON-CALL,  NONSCHED  HELO  THEN  SURFACE:23, 10,0, 17,0,0 

»  OF  HEL03  THAT  CAN  OCCUPY  AN  LZ  AT  ANY  ONE  TIME  BY  TYPE  (CH46,  CH53D,  CHSZE,  UHIN) : 10,3,3, 16 

I  OF  CARRIERS  BY  TYPE  (CH46,  CH53D,CH53E,  UHIN, LVT, LCH6, LCI19, LCU, LST, LARC) :  156,30,32,0,247,52,3942,23.0, 12 

I  OF  SURFACE  CRAFT  THAT  CAN  OCCUPY  A  BEACH  AT  ANY  ONE  TIME  BY  TYPE  (LVT,LCM6,LCI18,LCU,LST,LARC)  :i,5,4,2, 1,4 

INPUT  DATA  FILE  NAtlErLPE.DAT 
OUTPUT  FILE  NAf1E:TESTl 


Figure  D.9    Example  of  Interactive/Line  Input  Data 

H-   GICSSAEI  OF-  VARIAELES 

See  Section  F  of  Appendix  E. 

I.   HCDEl  TEST  RESOLIS 

See  Chapter  V  of  this  thesis. 
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r 

TABLE 

XX? 

Interactive 

Parameters 

Order   of 
Ee£U€st 

Parameter 

Name 

Def initioi 

1 

TA 

Sched    helo    serial    # 

2 

CA 

On-call    helo    serial    # 

3 

NA 

Nonsched    helo   serial    # 

4 

TS 

Sched    surf    serial    # 

5 

cs 

On-call    surf    serial    # 

6 

MS 

Nonsched    surf    serial    # 

7-12 

NOS  (I) 

Ship    type    (five  types) 

13 

TRNE1 

1st    turnaround  wave 

14 

NNB 

Number   of    beaches 

15 

NIZ 

Number   of    LZs 

16 

ASADIS 

Helo   launch   disti  nee 

17 

LODCIS 

LVT    launch    distance 

18 

LZDIS 

Shore    to   LZ    dista  nee 

19 

HSWAVE 

Sched    wave    # 

20 

HCWAVE 

On-call    wave    # 

21 

HNWAVE 

Nonsched    wave   # 

22 

LSHAVE 

Sched    wave    # 

23 

LCWAVE 

On-call    wave    # 

24 

LNWAVE 

Nonsched   wave   # 

25-28 

HGF  (I) 

#   helos   max  in  LL 
by    type    (4    types) 

29-38 

AT  (I) 

#   carriers   by   tyD  e 
(10    types) 

39-44 

LGF  (I) 

#   boats    max   at   bsach 
by    type    (6    types) 
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APPENDIX  E 
'HEIP'  FILE 

A.   lABlZ  OF  CONTENTS 

E    'Helx:'  File  Listicg 166 

C.   landing  Plan  File 167 

E.  T-1.EAT  File 163 

Z-   Input  Parameters  169 

F.  Subroutines 172 

G.  Variable  List 174 

H.   Wave  Clock  Parameters 180 

E.   GINEEAL 

Ihe  *help'  file  was  developed  to  assist  a  user  of  the 
model  with  questions  that  will  probably  arise  during  opera- 
tion. One  can  find  the  information  while  still  on  the 
computer  without  having  to  rely  on  a  manual.  A  listing  of 
the    'help'    file    is    found    in    Figure    A.  1    . 
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10  INPUT 
20  IF  A«= 

1  DATA=3" 
TO  PRINT" 
40  INPUT 
50  OPEN  " 
60  OPEN  " 
70  OPEN  " 
80  OPEN  " 
90  OPEN  ■• 
100  PRINT 
":PRINT:P 
1 10  FOR  I 
LSE  PRINT 
120  INPUT 
130  PRINT 
140  END 
01: 


"DO  YOU  DESIRE  HELP"  (Y  OR  N)":n« 

"N"  THEN  GOTO  140  ELSE  PRINT  "  VARIABLE  LI5T-1; 


PROGRAM  INPUT  DATA^ 


WAVE  DATA=4;  SUBROUTINE  LI5T=5:  EXIT=6" 

"ENTER  DESIRED  INFO  tt";X!ON  X  GOTO  50,60,70,90,90,140 


I". 
I", 
1". 
I", 

I", 

: PR  I NT "TO  SCROLL  HIT  "Y'  WHEN   -CONTINUE' 

PINT 

=1  TO  15  :LINE  INPUT  »l.L«sIF  LEFT* (L«, 3) ="END"  THEN  CLOSE  »1:G0T0  40  F 

L«:NEXT 

"CONTINUE""; Z«: IF  Zt="Y"  THEN  GOTO  110  ELSE  CLOSE  «1:G0T0  40 

"BY" 


, "C: ALPHA. DAT": GOTO  100 

, "Ci INPUT. DAT"; GOTO  100 

, "C: Tl.DAT"sGOTO  100 

, "C:LANDATA. DAT": GOTO  100 

, "C;SUBROU. DAT" 

NT "TO  SCROLL  HIT  "Y'  WHEN 


SHOWS.  ANY  OTHER  KEY  TO  EXIT 


Figure  E. 1    Help  File  Listing. 
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C.   lANDIHG  PLAH  Fill 


type  land  the 

THE  FOLLOWING  IS  AN  EXAHF'LE  OF  THE  DATA  INPUT  FOR  ALL  UAVE 
INFORMATION,   THE  FIRST  LINE  OF  LETTERS  AND  NUMBERS  IS  AN  ACTUAL  LINE  OF 
DATA  FOUND  IN  THE  LPE.DAT  FILE.  THE  CORRESPONDING  LETTERS  WILL  EXPLAIN 
EACH  COLUMN  OF  DATA. 

lS»317f 128f33r35>1878fAfA>8rIfR-lr615 

•         f         lt«         *         t44f*         • 

ArPFCfDfEfF       fhfHfifJ,    k    ,    i 


»l»l4«**tft 


a;      the  NUMBER  INDICATES  THE  UAVE  *  AND  THE  LETTER  REFERS  TO  THE 
CLASS  OF  THE  WAVE  ( S=SCHEDULED ,  0=ON-CALL.  N=NON-SCHED ) . MORE 
THAN  ONE  LINE  OF  DATA  (CALLED  A  SERIAL)  CAN  BE  OF  THE  SAME  WAVE 
NUMBER.   EACH  SERIAL  RUNS  SEOUENTIALLY  FROM  1  TO  THE  LAST  SERIAL 
THE  CLASS. 

B{  RESERVED  FOR  FUTURE  USE. 

Ct  NUMBER  OF  PERSONNEL  IN  PARTICULAR  SERIAL  OF  A  PARTICULAR  WAVE 

D-F5  RESERVED  FOR  FUTURE  USE. 

G;  mode  of  TRANSPORTATION.  (A=HELOf  S=SURFACE) 

H;      CATEGORIES  OF  CARRIERS,  A  THROUGH  K  CORRESPOND  TO  1-11.  (1=CH46E 
2=^CH53Df  3  =  CH53E»  4  =  UHINt  5=LVT.  6  =  LCM-6j  7  =  LCM-8»  8  =  LCU>  9  =  LST. 
10=LARC>  11=LCAC),  CARRIER  TYPE  MUST  BE  THE  SAME  FOR  THE  SAME 
WAVE. 

IJ      NUMBER  OF  CARRIERS  IN  THE  SERIAL 

J:      TYPE  LOAD  (I=INTERNALj  E=EXTERNALf  C=COMB INATION ) 

k;    destination:  (b-i  through  b-4  refers  to  beaches  *i  through  *4 

AND  R-1  through  R-4  REFERS  TO  LANDING  ZONES  *1  THROUGH  *4) 

L!      WEAPONS  UNIT  VALUE  ( WUV-FIREPOWER  SCORE) 
END  OF  FILE 
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1-1. lAT  FILE 


THIS  HELP  FILE  COVERS  THE  INPUT  FILE  CALLED  DATA.T-1.  THE 
INFORMATION  CONTAINED  IN  DATA.T-!  DEALS  KITH  PERMANENT  VALUES  SUCH  AS 
THE  HELO  TIME  FACTORS,  BOAT  TIME  FACTORS,  ETC.  THE  DATA  INPUT  WILL  BE 
EXPLAINED  IN  THE  ORDER  IT  IS  CALLED  FOR  BY  THE  PROGRAM. 


ttntnntntuitttntnnttnnttttntttntnnnttt 


PR06RAH 
LINE  f 


VARIABLE   DEFINITION 


60  HOS(I,J,K)  HELO  DECK  SPOTS 

70  HTF(I,J)  HELO  TIME  FACTORS 

90  HSPD(J)  HELO  SPEEDS 

100  BSFD(I)  BOAT  SPEEDS 

220  LTF(I,J)  BOAT  TIME  FACTORS 

GENERAL  INFO: 


LOCATION  IN  DATA.T-1 

LINES  1  Sr  2 

LINE  3 

LINE  4  (1ST  3  DATA  POINTS) 

LINE  4  (DATA  POINTS  4-9) 

LINES  5  l   6 


"THE  DATA  IN  PROGRAM  LINE  AO  IS  LISTED  ROW  BY  ROH  FROM  THE  HELO 
DECK  TABLE  FOUND  IN  APPENDIJ  3.  THE  SUBSCRIPTS  REFER  TO  VALUES  AS 
FOLLOHS:  hTYFE  SHIP,  J=TYPE  LOAD,  K=TYPE  HELO.  THE  FIRST  TWELVE  VALUES 
IN  THE  DATA  FILE  COMES  FROM  THE  FIRST  LINE  OF  VALUES  IN  THE  TABLE.  THE 
SECOND  TWELVE  FROM  THE  SECOND  ROH  AND  SO  ON. 

PROGRAM  LINE  70  INPUTS  DATA  FROM  THE  HELO  TIME  FACTORS  TABLE 
FOUND  IN  APPENDIX  3.  THE  SUBSCRIPT  I  REFERS  TO  THE  TYPE  OF  OPERATION 
AND  J  REFERS  TO  THE  TYPE  LOAD.  THE  FIRST  ROH  OF  THE  TABLE  FORMS  THE 
FIRST  THREE  VALUES  IN  THE  DATA  FILE.  THE  SECOND  THREE  THE  SECOND  ROW 
AND  SO  ON, 

HELO  SPEED  VALUES  ARE  FOUND  IN  LINE  90  OF  THE  PROGRAM.  THE 
SUBSCRIPT  REFERS  TO  THE  GENERAL  TYPE  OF  HELO.  J=l  IS  A  CH-53,  J^2  IS 
fl  CH-4A,  AND  J=3  IS  A  UHIN.  THE  SECOND  GROUP  OF  DATA  FOUND  IN  LINE  100 
IS  THE  BOAT  SPEEDS.  THE  SUBSCRIPT  REFERS  TO  THE  TYPE  OF  BOAT.  1=1  IS 
AN  LVT,  1=2  IS  AN  LCM-6,  1=3  IS  AN  LCM-9,  1=4  IS  AN  LCU,  1=5  IS  AN  LST, 
AND  1=6  IS  A  LARC. 

PROGRAM  LINE  220  INPUTS  THE  BOAT  TIME  FACTORS.  THE  SUBSCRIPT  I 
REFERS  TO  THE  TYPE  OF  BOAT  aAVE  OPERATION  AND  J  REFERS  TO  THE  TYPE  OF 
BOAT.  THE  DATA  FOUND  IN  THE  FILE  IS  LISTED  ROM  BY  ROH  FROM  THE  TABLE. 
THUS,  THE  FIRST  ROH  IN  THE  TABLE  IS  THE  FIRST  FOUR  VALUES  IN  THE  DATA 
FILE  AND  SO  ON. 

END  OF  FILE 
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IHEOI  PAEABETEBS 


The  following  table  identifies  the  input  psrsmete rs >  line  number 
location?  and  a  brief  description  of  each  veriablei  these  variables 
must  be  initiated  prior  to  running  the  model. 

VarisbleLine 

Name     No.      Defi niton 


ALADIS    102      Distance  from  ship  to  shore  for  helos  (nm) 

ASADIS    102      Distance  from  ship  to  shore  for  LCAC  (nm) 

AT(I)     160      Iriitial  t  of  carriers  that  will  participate  in 

Isndind  (I=type  carrier) 

BSPD(I)    100      Boat  speed  (I  =  type  boat!  1=L';T..  2  =  LCM-6f  3  =  LCM-9f  4^ 

LCUf  5=LSTf  6=LARC) 

CA         40      Total  #  of  lines  of  serial  data  for  all  on-call 

helo  waves 

CHCUR     112      Time  for  starting  first  LCAC  wave 

CLZDIS     102    "  Distarice  from  shoreline  to  Icac  LZ  (rim) 

C5     ■     40      Total  t  of  lines  of  serial  data  for  all  on-call 

surf  waves 

CSPD      102      LCAC  speed 

DLADIS     102      Distance  boat  must  travel  from  ship  to  shore  (nm) 

HCWAVE     110      Total  #  on-call  helo  waves 

HGF(I)     142      ♦  helos  by  type  that  can  land  and  unload 

simultaneously  in  LZ  (I=helo  type) 

HHOUR     106      Time  for  startin:^  first  helo  wave 

HI        112      Mery  lar^e  value  to  prevent  info  to  be  considered 

in  time  sort  (32000) 

HNUAVE    110      Total  t  non-sched  helo  waves 

HOLD      112      Same  as  HI  (=16000) 
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HOSdrJ^K)  60 


HSPDd 


NA 


90 


HSWAVE 

110 

HTF(I) 

70 

LCUAVE 

110 

LGF(I) 

190 

LHOUR 

106 

LNUAVE 

110 

LSUAUE 

110 

LTF(I) 

220 

LZDI5 

102 

MS 

40 

40 


HBT 

80 

NCLZ 

80 

NCT 

80 

NHT 

80 

NLT 

80 

NLZ 

30 

NMB 

80 

NST 


90 


Operational  deck  spots  for  helo  ops  (I=5hip  type? 
J  =  tyFe  losdins!  iriterri3l»e;;tern3lf  combination; 
K=type  helo) 

Helo  speeds  (I  =  type  load!  I  =  intern3l?  2  =  e;;tern3l> 
3  =  cotiibination) 

Total  *  sched  helo  waves 

Table  of  helo  time  factors  (see  separate  table) 

Total  t  of  on-call  boat  waves 

♦  of  boats  by  type  that  can  unload  =  iiriul  taneously  a 
numbered  beach  or  LCAC  LZ 

Time  for  starting  first  boat  wave  (e;; eluding  LCACs) 

Total  ♦  of  non-sched  boat  waves 

Total  t  of  sched  boat  waves 

Boat  ti:rie  factors  (I=bo5t  wave  operation! 
J=type  boat) 

-Distance  from  shoreline  to  helo  LZ  (nm) 

Total  i    of  lines  of  serial  data  for  non-sched 
surf  waves 

Total  i    of  lines  of  serial  data  for  non-sched 
helo  waves 

♦  boat  types  (5) 

♦  of  Icac  Iz's  available  to  current  landirid  plari 

♦  Icac  types  (1) 

♦  of  helo  types ( 4  ) 

♦  of  LVT  types   (1) 

t  of  Iz's  available  to  current  landing  plan 

♦  of  numbered  beaches  available  to  current  landind 
plan 

t  ships  total  from  which  can  off  load 
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NUS(I)  62 

OCHCK  144 

OCHTAB(I)  144 

OCLCK  144 

SSPD(I)  102 

TA  40 

TRNHl  BO 


TRNSl 


80 


TS         40 
WDS(I)     144 


♦  of  ships  by  type  froiri  which  off-loading  occurs 
(I=type  of  shiPf  l=LHAr  2=LPH-  3^LSPf  4=LPD.  5^LST) 

Sisnsl  identif b'iris  whether  on-call  helos  are  to 
follow  scheduled  (OCHCK  =0)  or  bresl-  irito  sched  ws';e 
sen ue nee  (OCHCK  =  2)t   If  =2  theri  times  niL'st  be 
specified  for  esrch  on-csll  weve  to  coninierice 
operstiori 

Time  for  on-cell  helo  weve  to  commence  operatiori 
if  not  followins  secuence  (I=w3ve  t).   scheduled 
waves  are  delayed  until  on-call  operations 
coiTiPleted 

Signal  identifying  whether  on-cell  boats  are  to 
follow  scheduled  (OCLCK  =0)  or  breal'  intc  sched  wave 
seauence  (0CLCK=2).   If  =2  then  times  must  be 
specified  for  each  on -call  wave  to  coninierice 
operatic  ri 

Ship  speed  (I=type  ship:  1=LHAj  2=LPH)  2=LSlh    4^LPDj 
5=LST) 

Total  ♦  liries  of  serialized  data  for  sched  helo  waves 

The  t  of  the  first  scheduled  helo  wave  in  first 
turnaround  wave 

The  t  of  the  first  scheduled  surf  wave  iri  first 
turnaround  wave 

Total  i    liries  of  serialized  data  for  sched  surf  waves 

liell  deck  sPot  array  (I  =  type  ship) 
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I,       SUBECDTINES 


This  file  lists  3II  of  the  subroutines  within  the  program 
code  and  their  location  by  line  nuiriber.   The  short 
description  dives  3  General  sumtnsry  of  what  the  routine 
does.   More  detailed  desciptions  of  the  maJor  routines 
are  contained  in  the  model  documentation. 


Routine 
Name 

Line 
No. 

BARIV 

6630 

BESTART 

7?30 

BLNCH 

5400 

BRLD 

4990 

BRTN 

6160 

BUNLD 

5790 

EXEC 

2270 

HALTSH 

7900 

HALTSL 


8360 


HARIV 

4270 

HCKLD 

8390 

HC30RT 

3480 

HLNCH 

3700 

HLODCK 

8640 

HNSORT 

3550 

HRLIi. 

2550 

Description 

Arrive  back  ship-surf 

Restart  timind  for  surf  waves  stalled  for 
insufficient  well  deck  spots 

Launch-surf 

Loadind-surf 

Deposit  cardo-surf 

Arrive/ unload  Iz-surf 

Controls  subroutines  and  timind  of  model 

Stall  remaining  sched  when  on-call  told  to 
start  before  completion  of  sched  air 

Stall  remaining  sched  when  on-call  told 
to  start  before  completion  of  sched  surf 

Arrive  back  at  ship-air 

Reevaluates  deck  spot  employment  if 
current  wave  does  not  occupy  all  spots 

Sort  routine  for  on-call  air 

Launch  routine  for  air 

Sets  UP  recalculation  and  sidnals  to  call 
hckld  from  e;;ec  called  from  HLNCH 

Sort  routine  for  non-sched  waves-air 

Load  subroutine  for  air 
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HRTN 

4610 

HSSORT 

3400 

HUNLD 

4060 

INITIAL 

470 

LCSORT 

4860 

LNSORT 

4920 

LSSORT 

4800 

MSORT 

3630 

RESTART 

7080 

SETUP 

10 

SPOTS 

3200 

STOCH 

7750 

STOCL 

7750 

STSH 

7860 

STSL 

8320 

STNSH 

7820 

STNSL 

8280 

WELDEK 

5320 

USPOT 

8710 

Deposit  C3rdo  subroutine-air 

Sort  routirie  for  sched  air 

Unload  at  Iz  subroutine 

Initializes  all  arrays  and  sort  routines 

Sort    routirie    for    ori-oall    surf 

Sort  routine  for  non-sched  surf 

Sort  routine  for  sched  surf 

Master  sort  routine-coiriputes  ne;;t  event 
from  all  other  sort  routines 

Restart  timins  for  waves  stalled  by 
insufficient  helo  deck  spots 

Initial  input  of  data  from  data  files 
and  within  prodram 

Calculates  ♦  of  sPots  to  be  used-called 
by  HRLD 

Start  on-cell  helo  after  final  scheduled 
wave  beSan  to  load 

Start  ori-call  surface  after  firial 
scheduled  wave  bedan  to  load 

Restart  scheduled  waves  after  stall  in 
HSLTSH  (air) 

Restart  scheduled  waves  after  stall  in 
HALTSL  (surf) 

Start  non-scheduled  helo  after  final 
on-call  wave  bedan  to  load 

Start  non-scheduled  surface  waves  after 
final  ori-call  wave  be^an  to  load 

Calculates  ♦  spots  to  be  used  for  surface 
craft  (called  by  BRLD) 

Calculates  ♦  spots  to  be  used  by  air 
(called  by  HCKLD) 
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G,   VARI8BIE  LIST 


The  following  table  provider  a  listinsi  of  the  program  '/sridblfc'i  and 
their  nieariin-js .   It  contains  all  the  iiiajor  variables  and  mo^t  of  the 
lesser  variables. 

A  Activity!  helo  ( 1-losd  >  2  =  l3unch  >  3  =  3rrive  LZ  ?  4-deF'Osi  t 

c  a  r  ii  0  »  J  =  3  r  r  i  V  e  back  ship),  s  ij  r  f  a  c  e  (  1  - 1  a  '.j  ri  c  h  f  r  e  b  o  a  t  f  2  = 
srrive  be3ch>3  =  dePOsit  c3rao»4  =  3rrive  back  5hiF(e;;cept 
1 vt ' s ) J 5-relood  from  well-deck) 

ACODE         Code  for  ne;;t  event!  I  =  st3rt  loading  wave  r  2=  launch  loaded 
W5ve;3  =  re3ch  des  txnation(  LZ)  r  4  =  coniFle  te  unloadiiii^  and 
start  retijrn  trip»5  =  3rrive  back  ship 

hLADIS        Distance  from  ship  to  shore  for  helos(n,'ii) 

AF'(I)         ♦  of  carriers  in  pool  for  future  use  (I-type  carrier) 

ASADIS        Distance  from  ship  to  shore  for  LCAC(n.ii) 

AT(I)         Initial  ♦  of  carriers  that  will  psiticipste  in  landirr^ 
( I  =  type  csrr  ier  ) 

BEGNSH  =1  is  flaS  to  be^in  non-sched  helo  wave  (subroutine  EXEC) 

BEGOCH  -1  is  fla^  to  be^in  on-csll  helo  wave  (subroutine  EXl-^C) 

BEGOCL  =1  is  flssi  to  be^in  on-call  surf  wave  (subroutirie  EXEC) 

BEGNSL  =1  is  flaS  to  be^in  non-sched  surf  wave  (subroutine  EXEC) 

BEGSH  =1  is  flaS  to  be^in  sched  helo  wave  (subroutine  EXEC) 

BEG3L  -1  is  \l34    to  besain  sched  surf  wave  (subroutine  EXEC) 

BSPD(I)  Boat  speed  (I=type  boat) 

C  Class  of  wave  ( 1-sc'ned  f  2  =  on-c3llT  3-non  sched) 

Ch  Total  *  of  liries  of  serial  data  for  all  on-call  helo  wav&s 

CC  FreservesC 

CCl  Class  of  wave  iri  subroutine  HCKLD 

CHOUR  Time  for  starting  first  LCAC  wave 

CLZDIS  Distance  from  shoreline  to  LCAC  LZ  (nm) 

C3  Total  I  of  liries  of  serial  data  for  all  ori-call  surf  waves 

CSF'D  LCACspeedover^rourid 

DBAT  Tally  ♦  of  boats  into  Is  ri  din  a  zorie 

D  E  3  T  D  e  s  t  i  ri  a  t  i  0  n 

DLABAT  Delay  table 

DLADIS  Distance  boat  must  travel  from  ship  to  shore(nm) 

D L T  I H E  T  i  1(1  -i  ri e e d e d  to  load  wave  (  s u b  r  o 'j  t  i  n e  H R L D  ) 

,D3  Deck  SPots  available  code  (0-no?  1-yes) 


174 


DTIME  Time  intsrvsl  tu  unload  LZ 

DTM(I)  Value  absisned  froni  LTF(IfJ)  (boat  tiiiie  faccoi's) 

[iT  Time  interval  for  wave  to  return  to  -z,hip 

E A 3 H  R u n ri i n ^  total  of  the  type  load 

FCH  ♦  of  first  line  of  serials  to  be  carried  in  on- call  helo 

wave 

FCL  *  of  first  lirie  of  serials  to  be  carried  in  ori-call  surf 

wave 

FMH  ♦  of  first  line  of  serials  to  be  carried  in  nofi-sched  helo 

wave 

FHL  ♦  of  first  line  of  serials  to  be  carried  in  non-sched  surf 

wave 

FSH  ♦  of  first  lirie  of  serials  to  be  carried  in  sched  helo 

wave 

FSL  ♦  of  first  line  of  serials  to  be  carried  in  sched  surf 

wave 

H1CLK(U>N)  Sched    subarray    for    helo    info    (w=w3ve    i>    n=wave    info    -see 

separate    e;;pl3riatiori    paiie) 

H2CLK(U»N)     On -call  subarray  for  helo  info  (w  =  w3'/e  ♦>  n  =  uave  info  -see 
separate  e;;pl3 nation  ps^e) 

H3CLK(U»N)     Non-sched  subarray  for  helo  info  (w  =  w3ve  I^fn  =  w3ve  irifo 
-see  separate  e^planatiori  paie) 

HCUAyE        Total  ♦  on-csll  helo  waves 

HEST(LDTfTYP)  Temp  array  for  same  info  as  HOST ( LDT t TYP  ) 

HGF(I)        ♦  helos  by  type  that  can  land  and  urilosd  simultaneously  in 
LZ  (I^^helo  type) 

flHOUR         Time  for  starting  first  helo  wave 

HI  Very  lar^e  value  to  prevent  irifo  to  be  cori  side  red  iri  time 

sort  (32000) 
HNUAUE        fotal  t  non-sched  helo  waves 

HOLD  Same  as  HI  (=16000) 

HOS(I>J»K)     Operational  deck  spots  for  helo  ops  (I=5hip  type?  J=tyFe 
1  o  a  d  i  Pi  !5  I  i  n  t  e  r  n  a  1  f  e ; ;  t  e  r  n  a  1  r  c  o  iTi  b  J  K  - 1  y  p  e  helo) 

HOST(LDT»TYF')  Total  t  of  all  of  deck  sPots  (LDT  =  type  loading  t  inte  rnsl  > 
e;;ternslf  combinatiori  5  TYF-type  iielo) 

HOUR  Current  time  in  minutes 

HSPDCI)       Helo  speeds  ( Utype  load) 

HSUAVE        Total  i    sched  helo  waves 


175 


Table  of  helo  tinie  fsctots  (t&e  sepsrste  table) 
Counts  r 

Uery  large  value  to  prevent  info  to  be  considered  in  time 
sort  (17000) 

Sched  subarray  for  surf  wave  info  (U=u3ve*>  N=u3ve  dats- 
see  separate  e;;pl3 nation) 

On-call  subarray  for  surf  usve  info  (lJ  =  w3ve  ♦»  N  =  wa(ve 
data  -see  separate  e;;pl3riation 

No n -sched  subarray  for  surf  wave  info  (U=w3ve  t?  H=u5ve 
data-  see  separate  e;;pla nation 

Total  ♦  of  on -call  boat  wsves 

Have  load  factor  (l  =  internalf  2  =  e>;ternalf  Z-coinbina  tion ) 

♦  of  boats  by  type  that  csn  unlosd  simultaneously  at 
numbered  beach  or  LCAC  LZ 

Time  for  starting  first  boat  wave  (excludins  LCACs) 

Total  ♦  of  non -sched  boat  waves 

U3ve  *  =  SSL(Nt2) 

Total  ♦  of  sched  boat  wsves 

Boat  time  factors  (I=bo3t  wave  operation*  J=type  best) 

Distance  from  shoreline  to  helo  LZ  (nm) 

1st  lirie  of  serial  data  to  be  carried  by  wave  (M  =  F3H  or 
FCH  or  FHH) 

MCLOCK(IfN)  Master  clock  subarray  (i  =  l  to  6»  l=sched  helof  2  =  oii-c3ll 
helof  3  =  non-sched  lielor  4  =  sched  surf»  5  =  un-Coll  sufff  6  = 
non-sched  surf?  n=wsve  dsts-see  seP3r3te  explanation) 

MODE  Air=lr  surf=2 

MS  Total  ♦  of  lines  of  serial  data  for  non-sched  surf  waves 

NA  Total  ♦  of  lines  of  serial  data  for  non-sched  helo  waves 

NBT  *  boat  types  (5) 

NCAR(I)  ♦  carriers  of  type  I 

NCLZ       _    ♦  of  LCAC  LZ's  available  to  current  landing  plan 

NCT  *  LCAC  types  (1) 

NH  ♦  of  helos  retijrning  by  type 

NHT  *  of  helo  types(4) 

NLSET         Flag  to  sign3l  begin  non-sched  surf  waves  3fter  on-call 
waves  completed 
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HTF(I) 

I 

LATE 

L1CLK(U! 

rN) 

L2CLK(Ui 

-N) 

L3CLK(lJi 

rN) 

LCUAVE 

LDT 

LGF(I) 

LHOUR 

LNUAUE 

LS 

LSUAUE 

LTF(I) 

LZDIS 

M 

NLT 

NLZ 

NNB 

N3 

N3A 

HSS 

NS3ET 

NST 

NUSd 

OA 

OCHCK 

OCHTAB(I) 


OCLCK 


0C3ET 

OCTIM 

OS 

PAC 

PASH 

P(I) 

RMFRC 

3A 

SCAdr 

J) 

SCH(I,1) 


♦  of    LUT    types       (1) 

♦  of    LZ's    available    to    currerit    la ri dins    plsri 

♦  of  numbered  besches  avsilsble  to  current  landing  plan 

♦  of  deck  spots  to  be  used  for  tiiis  W3ve  (subroutii"ie  HRLD) 
Counter  for  non-sched  helo  input 

Counter  for  non-sched  surf  input 

Flad  to  signal  beSin  non-sched   helo  waves  after  ori-call 
waves  conipleted 

♦  ships  total  from  which  can  off  load 

I  of  ships  by  type  froni  which  off-loadiri3  occurs  (I-type 
of  ship»  l=lh3»  2=lphf  S^lsd^  4=lpd.  5=lst) 

counters  for  on-call  helo  serials 

3i^ri3l  identifying  ufi ether  on-call  helos  are  to  follow 

scheduled  (OCHCK  =0)  or  break  into  sciied  wave  seauence 

(0CHCK=2).If  =2  then  times  must  be  specified  for  each  on- 
call  wave  to  commence  operation 

Time  for  on-call  helo  wave  to  commence  operation  if  not 
following  sequence  (I=w3ve  t).   Scheduled  waves  are 
delayed  until  on-call  operations  completed 

Signal  identifyiniS  whetlier  ori-call  boats  are  to  follow 
scheduled  (OCLCK  =0)  or  break  into  sched  wave  seouerice 
(0CLCK  =  2).  If  =2  then  times  must  be  specified  for  eacii  on- 
call  wave  to  commence  operation 

Si^nsl 

L1CLK(Nf2)    +    ZTIHE    =    time    ne:;t    event    plus    tiitie    to    unload 
on    beaches 

Counters  for  on-call  surf  serials 

♦  and  type  (load)  of  deck  spots  in  use  by  tlie  current  wave 
prior  to  launch 

Running  total  of  personnel  ashore 

Pools  of  helos  (i=helo  type) 

Fractiorial  availability  of  deck  spots 

Counters  for  sclied  helo  serialized  data 

Storai^e  arrays  for  serialized  input  data  for  oii-call  helo 
waves.  (J  =  followin2  values  t  0  =  UUU  »  1-wave  ♦>  2  =  personriel  f 
3=type  C3rrier»  4-+  of  carriers^  3-type  loadr 
6=dest ination »  7=launch  si^nslJ  !=♦  of  serial  line 
of  id  a  1 3  ) 

Wave  t  of  each  line  of  data  for  on-call  helo  wave 
(I=wavp4) 

waves  completed 
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SCH(I>2)      First  line  of  serialized  data  foi-  each  on-csll  helo  usve 
( I  =  w  3  V  e  *  ) 

SCL(I»1)      Type  carrier  for  on -call  suif  usve  (I=w3ve  ♦) 

SCL(If2)      First  line  of  serialized  data  for  each  ori-call  surf  wave 
( I  =  w3ve  i ) 

SCS(I>J)      Storage  arrays  for  serialized  input  dsts  for  on-call  surf 
waves.  (J=followind  values !  0-UUU f  l-uave  ii    2  =  personnelf 
3=type  carrierr  4=*  of  carriers?  j=type  load* 
6=debtin3tion»  7=l3unch  signal?  !=♦  of  serial  line 
of  dats) 

SEA3H         Totsl  eauipment  ashore 

SFASH         Running  total  of  firepower  sshore 

SNA(I>J)      Storade  arrsys  for  serialized  input  dsts  For  non-sched 
helo  waves.  (J  =  followiriy  v3luesJ0  =  UUU»  l=w3ve  ♦» 
2=personnelf  3=type  C3rrier»  4-#  of  carriers?  j=type  load? 
6=destin3t ion »  7=l3unch  sidnslJ  !=♦  of  serial  line 
of  dats) 

SNH(I»1)      Wave  *  of  each  line  of  dsta  for  non-sched  helo  wave 
(I=w3ve  *) 

SNH(I»2)      First  line  of  serialized  dats  for  each  non-sched  helo  W3ve 
( I  =  w3ve  ♦ ) 

3SH(Irl)      Usve  ♦  of  each  line  of  dsta  for  sched  helo  wave  (I=wave  4) 

SSH(I»2)      First  line  of  serialized  data  for  each  sciied  helo  wave 
(I=w3ve  ♦) 

SNL(I»1)      Type  carrier  for  non-sched  surf  wave  (I=w3ve  *) 

SNL(If2)      First  line  of  serislized  dats  for  esch  non-sched  surf  wave 
( I  =  w3ve  i ) 

SNS(IfJ)      Storsde  srrsys  for  serialized  iriput  dsts  for  nori -sched 
surf  waves.  (J  =  followin3  values  1 0  =  UU'y' >  l=w3ve  if 
2=per5onnel»  3=type  carrier?  4=t  of  carriers?  5=type 
load?  6  =  dest  ins  t  ioii  ?  7  =  l3unch  signal?  I-*  of  sei'ial  line 
0  r  data ) 

SS  Counters  for  sched  surf  serialized  dats 

SSA(I?J>      StoraSe  arrays  for  serialized  input  data  for  sched  helo 
waves.  (J  =  followind  values  1 0  =  U'UV  ?  1-wave  ♦?  2  =  personnel? 
3= type  carrier?  4-t  of  carriers?  5=type  load? 
6=destin3tion ?  7=launch  signal?  I=*  of  serisl  line 
of  data) 

S3ET  Fl33  for  csllind  restsrt 

SSL(I?1)      Type  csrrier  for  sched  surf  wsve  (I^wsve  t) 

SSL(I?2)      First  line  of  serislized  dsts  for  esch  sched  surf  wsve 
( I  =  w  3  V  e  *  ) 

SSPD  Ship  speed 
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SSSdr  J) 


TA 

TRNHl 

TRNSl 

TS 

ULADIS 

U 

un 

UDS(I) 

UDST 

WEST 

ULDT 

UNS 

USET 

UTYP 

UU 

UUl 

ZN(I) 

ZONE(I) 

2TIME 


Storage  arrays  for  serializtd  input  data  for  sciied  surf 

waves.  (J  =  follouirid  valuestO-UUVr  l  =  u3ve  i?  2-persoririel> 

3=type  carrierr  4=*  of  carriers?  5=type  load» 

6  =  destin3tiori»    7  =  laijrich    si^rialf    I-t    of    serial    lirie 

of    data) 

Total  ♦  liries  of  serialized  data  for  sc■^led  iielo  uaves 

The  *  of  the  first  scheduled  lielo  wave  in  first  turnaround 
wave 

The  ♦  of  the  first  scheduled  surf  wave  in  first  turriaround 
wave 

Total  *  lines  of  serialized  data  for  sched  surf  waves 

Distance  from  launch  to  shore  of  larrditi^  craft 

Counter  for  wave  * 

Uell  deck  availability  code  (0=noT  l=yes) 

Well  deck  SPot  array  (I=type  ship) 

Uell  deck  spots  total  in  the  fleet 

Uell  deck  spots  total  in  the  fleet 

Load  type  beiriS  eni ployed  by  currerit  wave 

♦  deck  spots  beiri^  employed  by  cur' rent  wave 

Si^rial  to  call  restart  (  =  1) 

Type  carrier  beinS  eni ployed  by  current  wave 

Preserve  w  (wave  ♦)  in  subroutine  HRLD 

Signal    used    to    setup    (subroijtirie    HCKLIO 

Time    table    for    landing    in    zone    (I)     (time    uriluad    com  piece) 

La n din -3    zorie    signal    (I  =  LZ    type)    (l  =  free    to    l^rid    in) 

NoK  time  to  unload  over  all  landing  zones  in  use 
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HAVE    CLOCK    PABAHEtlEBS 


The  wave  clock  parameters  ^re^    -found  in  si;;  arrays. 
There  is  an  BrrBy    i  or    each  class  (3)  and  -for  both  helo 
and  surface  modes.   They  B.r^    of  the  -form  HI  CLK  ( W  ,  N )  . 
The  table  below  is  a  breakdown  o-F  the  coding  for  N. 

N  Value    Value  and  code  for  wave  clock  parameter 


0  Signal:  0=wave  not  loaded  yet 

l=wave  is  or  has  loaded 

2=wave  has  offloaded  cargo  ashore 

1  Wave  number 

2  Time  of  next  event  (future  time) 

3  Code  for  next  event: 

l=start  loading  wave 

2=launch  loaded  wave 

3=reach  destination 

4=complete  unload  and  start  return  ship 

5  =  arrive  bacJ::  at  ship  ^reB 

4  Wave  load  factor  (helo  only); 

l=internal  loading 
2=e;;ternal  loading 
3=combi nat i on  load 

5  Mode  of  transport ai on  (use  by  master  clock): 

l=helo 

2  =  5ur f  see 

6  Class  of  serial   (master  clocf::): 

1 =schedul ed 

2=on-call 

Z'=non  — schedul  ed 

6+1     Number  of  helos  of  type  I  in  wave 

END  OF  FILE 
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APPENDIX  F 
PROGRAM  LISTING 

3  •PROGRAM  THAT  WRITES  TO  FILE  ; 27  APR  34 : DATSHIP . BAS 

b     "EM  RITACCO 

7  -INITIAL  INPUT  ROUTINE  LIMES  0-470 

20  DEF  FNXt=MIDS (Al«,  INSTR (Alt,  " .  ") +1  ) 

30  DEF  FNY*=STR« (L! +CHRS (4) +A1S 

40  DEFINT  A-Y:  INPUT"**  OF  SERIAL  LINES  OF  DATA  FOR  SCHED ,  ON-CALL,  ^■  NONSCHED  HELD 

THEN  SURFACE: ", T A, CA,NA, TS, CS, MS 
42  DIM  SCA(CA, 7) , SSA(TA, 7) ,SSS(TS, 7) , SC3 (CS, 7) ,3NA(NA,7) , 3NS (MS. 7) , HOS (3, 3, 4) 
44  DIM  NUS  (5)  ,HTF(B,  3)  ,  LTFO,  b)   ,HSPD(3)  ,  BSDP  (6)  ,  DLABAT  (4,3,7)  ,  HOST  (3,  4) 
50  PR  I NT "Setup" ;FRE(9)  : OPEN" I" ,  1, "T-l.DAT 

60  FOR  1=1  TO  3:F0R  J=l  TO  3:F0R  K=l  TO  4 : INFUTttl , HOS ( I . J , K ) 

62  NE;<T:NEXT:NE;<T:  INPUT"t»  OF  SHIPS  BY  TYPE  (LHA,  LPH.  LSD  ,  LPD,  LST  )  :  "  ,  NUS  (  1  )  ,  NUS  (  2) 
, NUS ( 3 ) , NUS ( 4 ) . NUS ( 3 ) 

70  FOR  1  =  1  TO  a.-FOR  J  =  l  TO  3:INPUT»1,  HTF  (  I  ,  J  )  :  NEXT:  NEXT 

80  NHT=4:NLT=1 :NBT=5:NCT=0:NST=5: TRNS1=10: TRNS2=10: INPUT" 1ST  TURNAROUND  SCHED  HE 
LO  WAVE: ", TRNHl 

82  INPUT"#  OF  BEACHES  AND  *»  OF  LANDING  ZONES :",  NNB,  NLZ 
90  FOR  J  =  l  TO  3:INPUTt»l,  HSPD(J>:NEXT 

100  FOR  1  =  1  TO  NLT+NBT+NCT:  INPUT*»1,BSPD  (  I  )  :NEXTRUN 

101  INFUT"HELO  LAUNCH  DISTANCE,  BOAT  LAUNCH  DISTANCE,  AND  SHORE  TO  LZ  DISTANCE:" 
,ALADIS,L0DDI3,LZDIS 

102  NEXT:SSPD=20: ASADIS=a: VLADIS=2: DLADIS=a: CLZD IS= 1 
104  CSPD=10 

106  INPUT"LHOUR  AND  HHOUR: " , LHOUR, HHOUR 

110  INPUT"»  OF  WAVES  IN  ORDER  SCHED,  ON-CALL,  NONSCHED  HELO  THEN  SURFACE: ", HSWAV 

E , HCWAVE , HNWAVE . LSWAVE , LCWAVE , LNWAVE 

1 1 2  CHOUR= 1 7000 : LATE= 1 7000 : H I =32000 : HOLD= 1 6000 : VS= 1 

114  VC=2: VN=3:DIM  SSH(HSWAVE, 2) , SCH (HCWAVE, 2) ,SNH (HNWAVE, 2) , SSL (LSWAVE, 2) 

120  D I M  . SCL (LCWAVE , 2 )  , SNL ( LNWAVE , 2 ) 

130  DIM  HICLK (HSWAVE, NHT+6) , H2CLK (HCWAVE, NHT+6) , H3CLK (HNWAVE, NHT+6> 

132  DIM  LICLK  (LSWAVE,  NLT  +  NBT  +  NCT  +  6)  ,  L2CLK  (LCWAVE,  NLT-HNBT-t-NCT-i-6  ) 

134  DIM  L3CLK (LNWAVE, NLT+NBT+NCT+6) , OCHTAB (HCWAVE) 

140  DIM  AT (NHT+NLT+NBT+NCT) , AP (NHT+NLT+NBT+NCT) , P ( NHT+NLT+NBT+NCT ) , HGF (NHT) 

142  DIM  LGF (NLT+NBT+NCT)  , WDS (NST)  :  INPUT"»  OF  HELOS  THAT  CAN  OCCUPY  AN  LZ  AT  ANY 

ONE  TIME  BY  TYPE  (CH46,  CH53D,  CH33E,  UH IN) : " . HGF ( 1 ) , HGF ( 2) , HGF (3) , HGF ( 4 ) 

144  WDS ( 1 ) =6: WDS (2) =2: WD3 (3)=3: WDS (4) =5: WDS (3) =7:0CHTAB ( 1 ) =18 

150  0CHCK=O 

180  INPUT"#  OF  CARRIERS  BY  TYPE  (CH46. CH53D, CH53E, UH IN, LVT, LCM6 , LCMS, LCU , LST , LAR 

C) : ", AT(1) , AT(2) , AT(3) , AT(4) , AT(3) , AT(6) , AT(7) , AT(S) , AT(9) , AT(IO) 

190  INPUT"**  OF  SURFACE  CRAFT  THAT  CAN  OCCUPY  A  BEACH  AT  ANY  ONE  TIME  BY  TYPE  (LV 

T,LCM6,LCM8.LCU,L3T,LARC) : " , LGF ( 1) ,LGF(2) ,LGF(3) ,LGF(4) ,LGF'3) ,LGF(6) 

220  FOR  1  =  1  TO  8:  FOR  J=l  TO  6:INPUTt»l,  LTF  (  I  ,  J  )  :  NEXT  :  NEXT  :  CLOSE  1 

230  PRINT  CHR* (12) : 

232  'IF  EOF (2)  THEN  END 

240  ZZ*="SETUP-A" 

250  A«="LFE" 

252  INFUT"INPUT  DATA  FILE  NAME: " , INFILES 

260  OPEN" I", 1 , INFILE* 

262  INPUT  "OUTPUT  FILE  NAME : " , OUTF ILE« 

270  S3= 1 : 3A= 1 : 03= 1 : 0A= 1 : NSS= 1 : N3A= 1 

280  INPUT»»1,,A«:LINE  INPUT**  1  ,  A  1  S  :  IF  LEFT*  ( AS,  1  )  ="E"  THEN  CLOSE  1  :  NSA  =  NSA- 1  :  GOTO  4 

70 

290  IF  LEFT* (At, 1 ) ="T"THEN  280 

300  FOR  1  =  1  TO  3:  Z  (  I)=VAL  (AIS)  :  A11i=MID«  (Al«,  IN3TR(A1«,  ",  ") +1  )  :NEXT:  Z  (0)  =Z  (0) 

302  IF  LEFTS(A1«, 1)="S"THEN  GOSUB  320  ELSE  GOSUB  360 

304  TWUV ' =TWUV' +WUV 

310  GOTO  280 

320  IF  RIGHTS (A*, 1 )="0"THEN  340  ELSE  IF  RIGHTS (AS . 1 ) ="N"THEN  330 

330  A1S=MIDS (Al S, 3) :FOR  J=0  TO  5 

332  Z  (3)=0:  Z  (4)  =■:! :  SSS  (SS.  J  )  =Z  (  J)  :NEXT:S3S  (SS,  1  )  =VAL(AS)  :  K  =  3 
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334  FOR  J=l  TO  8  STEP  2:XS=FNX« 

336  GOSUB  400: SS3 (S3. K) =L: K=K+1 : NEXT: S3S (SS, 0) =WUV: S3=SS+1 : RETURN 

340  A1S=MID« (Al*, 3) :FOR  J=0  TO  5 

342  Z (5>=0; Z (4) =0:SC3 (OS, J)=Z (J) :NEXT:3CS (OS.  1 ) =VAL  (AS)  : K=3 

344  FOR  J=l  TO  9    STEP  3: XS=FNX« 

346  GOSUB  400: SCS (OS, K) =L:K=K+1: NEXT: SC3 (OS, 0)=WUV: 03=03+1 : RETURN 

350  AlS=niD« (A1S,3) :FOR  J=0  TO  5 

332  Z (5) =0: Z (4) =0:SNS (NSS, J)=Z (J) : NEXT : SN3 (NSS, 1) =VAL(A«) : K=3 

334  FOR  J=l  TO  S  STEP  2: XS=FNXS 

356  GOSUB  400: SNS (NSS, K) =L: K=K+ 1 : NEXT: SNS (NSS, 0) =WUV: NSS=NSS+ 1 : RETURN 

360  IF  RIGHTS (AS, 1)="0"THEN  330  ELSE  IF  RIGHTS (AS , 1 ) ="N"THEN  390 

370  A1S=MIDS(AIS,3) :FOR  J=0  TO  5 

372  Z (5) =0; Z ( 4 ) =0: SSA ( SA, J)=Z (J) : NEXT: S3A (SA, 1) =VAL(AS) : K=3 

374  FOR  J=l  TO  3  STEP  2: X»=FNXS 

376  GOSUB  400:SSA(SA,K) =L:K=K+1 : NEXT: SSA (3A, 0 ) =WUV:SA=SA+1 ; RETURN 

380  AlS=niDS(A14, 3) :FOR  J=0  TO  5 

332  Z (5) =0: Z (4) =0: SCA (OA, J ) =Z (J> : NEXT: SCA (OA, 1 ) =VAL (AS) : K=3 

334  FOR  J=l  TO  3  STEP  2:X$=FNXS 

386  GOSUB  400: SCA (OA, K) =L: K=K+1 : NEXT: SCA (OA, 0) =WUV: 0A=0A+1 : RETURN 

390  A1S=MID4(A1S, 3) :F0R  J=0  TO  5 

392  Z (5)=0: Z (4) =0: SNA (NSA, J ) =Z (J) : NEXT: SNA (NSA, 1 )=VAL(AS) : K=3 

394  FOR  J=l  TO  3  STEP  2: XS=FNXS 

396  GOSUB  400: SNA (NSA, K) =L : K=K+1 : NEXT: SNA (NSA, 0) =WUV: NSA=NSA+1 : RETURN 

400  IF  K=4  THEN  L=VAL ( A  1 S )  : A  1 S=FNXS : RETURN 

410  IF  K=3  THEN  L=ASC (LEFTS (Al «. 1 )) -64: Al S=FNXS: RETURN 

420  IF  K<:6  THEN  440  ELSE  GOSUB  460: X$=R IGHTS ( Al S , 3) : IF  X$="B-1"  OR  XS="R-1"  THE 

N  L=l  ELSE  IF  XS="B-2"  OR  X$="R-2"  THEN  L=2  ELSE  IF  XS="B-3"  OR  XS="R-3"  THEN  L= 

3  ELSE  L=4 

430  GOTO  430 

440  X«=LEFTS (AIS, 1 ) : IF  XS="C"THEN  L=3  ELSE  IF  X*="I"THEN  L=l  ELSE  IF  XS="E"  THEN 

L  =  2 
430  A 1S=FNXS: RETURN 
460  WUVS=FNXS: A1S=LEFTS (AIS.LEN (AIS) -LEN (WUVS) -1) : WUV=VAL (WUVS) : RETURN 

469  INITIALIZES  TIME  CLOCKS  AND  TIME  CLOCK  PARAMETERS  LINES  470-1230 

470  OPEN  OUTFILES  FOR  OUTPUT  AS  »2 
480  LLHOUR=LHOUR: HHHOUR=HHOUR 

490  T ( 1 ) =LLHOUR: T  (2) =HHHOUR: T (3) =CCHOUR: FOR  1  =  1  TO  3: U ( I) =4-1 : NEXT: FOR  J  =  l  TO  2: 

FOR  1=1  TO  3: IF  T(I+1)>T(I)  THEN  SWAP  T ( I) , T ( 1+ 1 ) : SWAP  U(I),U(I+1) 

500  NEXT:NEXT:FaR  1=1  TO  3: T ( I ) =T ( I ) -T (3) : ON  U(I)  GOSUB  3 10, 520, 330: NEXT 

502  ERASE  T: ERASE  U:GOTO  340 

5 1 0  CCHOUR  =  T (  I  )  : RETURN 

520  HHHOUR=T ( I) :RETURN 

530  LLHOUR=T( I ) :RETURN 

540  GOSUB  550: GOTO  2270 

550  • AT( 1 ) =130: AT (2) =100: AT (3) =100: AT (4) =50: AT (5) =200: AT (6) =3 1 : AT (7) =64: TRNS1=10 

552  • TRNH1=7:N=NHT+NLT+NBT+NCT:F0R  1=1  TO  N: AP ( I ) =AT ( I ) : NEXT 

560  N=NHT+NLT+NBT+NCT:FOR  1=1  TO  N: AP ( I ) =AT ( I ) : NEXT 

580  FOR  1=1  TO  6:MCL0CK(I,2)=LATE:NEXT 

590  FOR  1=1  TO  H3WAVE:H1CLK( I,2)=LATE:NEXT:F0R  1=1  TO  HCWAVE 

592  H2CLK ( I ,2)=LATE:NEXT:F0R  1=1  TO  HNWAVE: H3CLK ( I , 2) =LATE: NEXT 

594  FOR  1=1  TO  LSWAVE: L ICLK (I , 2) =LATE: NEXT: FOR  1=1  TO  LCWAVE: L2CLK ( I , 2) =LATE 

600  NEXT: FOR  1=1  TO  LNWAVE: L3CLK ( I , 2) =LATE: NEXT 

610  FOR  K=l  TO  NLZ:  ZN(K)=i:):NEXT 

620  GOSUB  1630 

630  J=HHHOUR- 

640  FOR  N=l  TO  TRNHl-1 

650  HICLK  (N,  1  )  =N:H1CLK  (N,2)  =J:H1CLK(N.  3)  =  1  :  H  1  CLK  (N.  5)  =1  :H1CLK  (N.6)  =1  :  J  =  .J+1 

660  NEXT: GOSUB  1290 

670  IF  OCHCK : 2  THEN  710 

680  FOR  1=1  TO  HCWAVE 
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h9':i    H2CLK  (  I  ,  1  )  -I  :  HZCLK  '.  I  ,  Z)  =OCHTAB  (  I  )  +HHHaUR:  H2CLK  (I  ,  T)  =1  :  H2CLI."  (I  ,  S)  =1 
6?2  H2CLK (I. 6) =2 

700  NEXT:FCH=1 :G03UB  1760:60X0  720 
710  GOTO  720 

720  L=NLT+NBT+NCT: LICLK (1.2) =LLHOUR 
730  FOR  N=l  TO  LSWAVE 

740  LICLK (N, 1 )=N: LICLK (N, 3) =2: LICLK (N,3) =2: LICLK (N,6) =1 
■750  L3=SSL(N, 2) :FOR  1=1  TO  L: NCAR ( I ) =0: F (I+NHT) =AP ( I +MHT) : FOR  K=l  TO  NMB 
752  DBAT(IJ<)=0:NEXT:NE;<T 

760  IF  LS=T3  THEN  920  ELSE  IF  S33(L3,1)<>N  THEN  920  ELSE  I =333 (L3 , 3) -NHT 
770  IF  i:=0  THEN  FRINT'-NO  MO  DATA":STOF 

780  IF  P(I+NHT) >=S33(L3, 4) THEN  310  ELSE  J=333 (L3, 1) : LICLK ( J , 2) =HOLD 
790  IF  333 (L3-1, 1) OSSS (LS, 1 ) THEN  300  ELSE  L3=L3-1 : 333 (L3, 7) =0: GOTO  790 
900  FSL=L3:PRINT"L3";L3;  ■•  -  Insu-f -f  i  c  i  ent  Scheduled  landing  cra-ff:STOP 
810  NCAR(I)=NCAR(I)+SSS(LS, 4) :SSS(LS, 7) = 1 : DEST=SS3 (LS , 6 ) 

812  DBAT( I , DEST) =DBAT CI . DEST) +333 (L3, 4) :P ( I+NHT)=P (I+NHT) -333 (LS. 4) :LS=LS+1 
814  GOTO  760 

320  FOR  1  =  1  TO  L: AP(I+NHT)=P(I+NHT)  :L1CLK(N,  1+6) =NCAR( I)  :  IF  NCAR (I )  ; ; 0  THEN  I  1  =  1 
830  NEXT 

840  FOR  K=l  TO  NNB: DTIME (K) =0: FOR  1=1  TO  L 
350  IF  DBAT(I,K) '=0  THEN  880 
860  DBAT (I,K)=DBAT (I,K) -LGF ( I) 

870  DTIME(K) =DTIME (K) +LTF(1, I) +LTF(2, I) +LTF(8, I) :GOTO  350 
880  NEXTrNEXT 

890  ZTIME=0:FOR  K=l  TO  L:IF  DTIME (K) >ZT IME  THEN  ZTIME=DT IME (K ) 
900  IF  N=LSWAVE  THEN  OCT IM=L1CLK (N, 2) +ZTIME: GOTO  950 
910  NEXT: IF  N=L3WAVE  THEN  OCT IM=L ICLK (N, 2) +ZTIME: GOTO  950 
920  LICLK (N+1 , 2) =L1CLK (N. 2) +ZTIME 

930  IF  SSS(L3,2)<;0  THEN  940  ELSE  L ICLK (N+1 , 2) =HOLD: GOTO  950 
940  NEXT 

950  IF  NCT=0  THEN  PRINT"Boat  pool " ; AP (5)  ; AP (6 )  ; AP (7)  ; AP (8)  ; AP (9)  ; AF (  Kj)  ELSE  FRI 
NT  "Boat  pool  ";  AP(5)  ;  AP(6)  ;  AP(7)  ;  APO)  ;  AP  (9)  ;  AP  (  10)  ;  AP(  1  1  ) 
952  GOSUB  1520 

956  IF  C3=0  THEN  FCL=H I : FML=HI : GOTO  1226 
960  IF  3C3(1,1)=0  THEN  FCL=HI : FML=HI : GOTO  1226 
970  L=NLT+NBT+NCT:  L-2CLK  (1.2)  =OCTIM 
980  FOR  N=l  TO  LCWAVE 
990  L2CLK(N,  1 )  =  1  :  L2CLK  (N.  3)  =2:  L2CLK  (N.  5)=2:L2CLJ-:  (N.6)=2 

1000  LC=SCL (N, 2) :FOR  1=1  TO  L: NCAR ( I) =0: P (I +NHT) =AP ( I +NHT ) : FOR  K=l  TO  NNB 

1002  DBAT (I,K) =0: NEXT: NEXT 

1010  IF  LC=C3  THEN  1100  ELSE  IF  SCS(LC,1)  ;N  THEN  1100 

1020  I=SC3(LC,3) -NHT: IF  i:=0  THEN  LFRINT"NO  DATA":GOTO  1226 

1030  IF  P ( I+NHT) '=3CS(LC, 4) THEN  1090 

1040  J=SCS (LC, 1) :L2CLK (J,2)=H0LD 

1050  IF  3C3(LC-1,  1)<  .  SC3(LC,  DTHEN  1070 

1060  LC=LC-1:3C3(LC,7) =0:GOTO  1050 

1070  FCL=LC:LPRINT"LC" ;LC: "  Insufficient  on-cal 1  craft" 

1080  GOTO  1230 

1090  NCAR ( I ) =NCAR ( I ) +SC3 (LC, 4) :P ( I+NHT) =P ( I+NHT) -SC3 (LC, 4) : SC3 (LC, 7)=1 

1092  DEST=SC3 (LC, 6) : DBAT ( I, DEST) =DBAT ( I .DEST) +SC3(LC. 4) : LC=LC+ 1 : GOTO  1010 

1100  FOR  1=1  TO  L: AP ( I+NHT) =P ( I+NHT) :L2CLK (N. 1+6) =NCAR ( I ) 

1102  IF  NCAR(I)  ::0  THEN  I  1  =  1 

1110  NEXT 

1120  FOR  K=l  TO  NNB: DTIME (K) =0: FOR  1=1  TO  L 

1130  IF  DBAT(I.K)  =0  THEN  1160 

1 140  DBAT ( I.K) =DBAT( I,K) -LGF ( I ) 

1150  DTIME (K) =DTIME(K) +LTF ( 1 ,  I ) +LTF(2.  I ) +LTF(B,  I  >  : GOTO  I  130 

1160  NEXT: NEXT 

1170  ZTIME=':i:FOR  K=l  TO  L:IF  DT  IME  (K  )  ■  ZT  IME  THEN  ZT  IME  =  DTIME  (K  ) 

1130  NEXT 
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1132  IF  rj=LCWAVE  THEN  MSTIM=L2CLK  (N.  2) +ZTiriE:  GOTO  1220 

1 1?0  L2CLK (N+1 , 2) =L2CLK  CM, 2) +ZTIME 

1200  IF  SC3(LC,2)   0  THEN  1210  ELSE  L2CLK (N+ 1 . 2) =HOLD : GOTO  1220 

1210  NEXT 

1220  IF  NCT=0  THEN  PRINT 

1222  eOSUB  1530 

1226  IF  MS=0  THEN  FML=HI:GOTO  12^0 

1230  IF  SNS(1,1)=0  THEN  FML=H I : L3CLK ( 1 . 2) =LATE 

1240  FOR  1=1  TO  NST: WDST=WDST+WDS ( I ) *NUS ( I) : NEXT: WE3T=WD3T 

1250  PASH=0:SEASH=<7':SFASH=0:F0R  1  =  1  TO  NST:FOR  J  =  l  TO  3:  FOR  K=l  TO  NHT 

1252  HOST (J,K) =HOST (J. K) +HOS ( I , J,K) *NUS ( I ) : HEST ( J,K) =HOST ( J,K) 

1254  NEXT:NEXT:NEXT:FOR  1  =  1  TO  6:  IF  I-:=3  THEN  hCLOCK  (  1 ,  5)  =  1  ELSE  MCLOCK  C  I  ,  5)  =2 

1260  IF  1=1  OR  1=4  THEN  MCLOCK ( I , 6) =1  ELSE  IF  1=2  OR  1=5  THEN  MCLOCK ( I , 6 ) =2  ELSE 

MCL0CK(I.6)=3 
1270  NEXT 
1272  DS=1 
1230  RETURN 

1289  ' 

1290  TIME=LATE:FOR  W= 1  TO  HSWAVE 
1300  IF  H1CLK(W,2) ^=TIME  THEN  1320 

1310  TiriE=HlCLK  (W,2)  :  ACODE=H  ICLK  ( W.  3)  :  HWAVE=UI 

1320  NEXT 

1 330  MCLOCK ( 1 , 2 >  =T I ME : MCLOCK (1,1) =HWAVE : MCLOCK (1,3) = ACODE : H ICLK ( HWAVE . 2 ) =HOLD 

1 332  MCLOCK ( 1 , 5 ) = 1 : MCLOCK ( 1 , 6 >  = 1 

1340  IF  AC0DE=6  THEN  HICLK (HWAVE, 2) =LATE 

1350  RETURN 

1359  ■ 

1360  • PRINT "HC30RT" 

1370  TIME=LATE:FOR  W=l  TO  HCWAVE 

1330  IF  H2CLK (W,2) : =TIME  THEN  1400 

1390  TIME  =  H2CLK  (W,  2')  :  AC0DE=H2CLK  (W,  3)  :  HWAVE  =  W 

1400  NEXT 

1410  MCLOCK (2, 2) =TIME: MCLOCK (2. 1 ) =HWAVE : MCLOCK (2.3) =ACaDE: H2CLK (HWAVE, 2) =HOLD 

1412  MCLOCK!  2, 5)=1 : MCLOCK (2, 6) =2 

1420  IF  AC0DE=6  THEN  H2CLK (HWAVE, 2) =HOLD 

1430  RETURN 

1439  • 

1440  •PRINT"HNSORT" 

1450  TIME=LATE:FOR  W=l  TO  HNWAVE 

1460  IF  H3CLK  (l'J,2)  :;=TIME  THEN  1480 

1470  TIME=H3CLK(W,2) : AC0DE=H3CLK ( W, 3) : HWAVE=W 

1430  NEXT 

1490  MCLOCK  (3,  2)  =TIME:  MCLOCK  (3,  1  )  =Hl'JAVE:  MCLOCK  (3,  3)  =ACODE:  H3CLK  (HWAVE.  2)  =HaLD 

1492  MCLOCK (3, 5) =1: MCLOCK (3, 6) =3 

1500  IF  AC0DE=6  THEN  H3CLK (HWAVE . 2) =LATE 

1510  RETURN 

1519  • 

1520  •FRINT"LS3aRT" 

1530  TIME=LATE:FOR  W= 1  TO  LSWAVE: IF  LICLK ( W, 2) : =TIME  THEN  1550 

1540  TIME=L1CLK (W, 2) : AC0DE=L1CLK (W, 3) : LWAVE=W 

1550  NEXT 

1560  MCLOCK ( 4, 2 )=T I ME: MCLOCK (4, 1 ) =LWAVE: MCLOCK (4.3) =ACODE : L ICLK (LWAVE . 2) =HOLD 

1562  MCLOCK (4. 5)=2:MCL0CK (4, 6)=1 : IF  AC0DE=6  THEN  L ICLK ( WAVE, 2) =LATE 

1570  RETURN 

1579  ^ 

1530  ■PRINT-LCSORT" 

1590  TIME=LATE:FOR  W= 1  TO  LCWAVE:IF  L2CLK (W. 2) /=TIME  THEN  1610 

1600  TIME=L2CLK (W,2) : AC0DE^L2CLK (W. 3) : LWAVE=W 

1610  NEXT:  MCLOCK  (5.2)  =TIME:  MCLOCK  (3.  1  )  =LWAVE :  MCLCCf-;  (5,  3)  =ACODE:  L2CLK  (LWAVE.  2)  =H0 

LD 
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1612  MCLOCKO,  5)=r:MCLQC'r:  (5.  6)=2:  IF  ACDDE^.S  THEN  L2CLK  (L^AVE,  2  )  =LATE 

1620  RETURN 

1623  ■ 

162?  "COMPUTES  ARRAYS  FOR  WAVE  » " 3  AND  SERIAL  »  OF  13T  SERIAL  IN  WAVE 

1630  IF  TA=0  THEN  1680  ELSE  W= 1 : SSH (W, 2 ) = 1 : SSH (W. 1 ^ =W: I F  TA=0  THEN  1680 

1640  FOR  1  =  1  TO  TA:  IF  SSA (  I  .  1 ) =W  THEN  1670 

1630  IF  3SA(I,1)=0  THEN  1680 

1660  W=W+1  :  SSH  (W,  2)  =1  :  SSHd'J.  1  )  =W 

1670  NEXT 

1680  IF  CA=0  THEN  1730  ELSE  W=  1  :  SCH  ( W,  2)  =  1  :  SCH  ( W.  1  )  =W:  IF  CA=i:i  THEN  1730 

1690  FOR  1=1  TO  CA: IF  SCA ( I , 1) =W  THEN  1720 

1700  IF  3CA(I.1)=0  THEN  1730 

1710  W=W+1 : SCH (W, 2) =1 : SCH(W. 1 ) =W 

1720  NEXT 

1730  IF  NA=0  THEN  1780  ELSE  W= 1 : SNH (W. 2) = 1 : SNH ( W. 1 ) =W: IF  NA=0  THEN  1780 

1740  FOR  1=1  TO  NA: IF  SNA ( I . 1 ) =W  THEN  1770 

1730  IF  SNA(I.n=0  THEN  1780 

1760  W=W+1 : SNH (W, 2) =1 : SNH(W, 1) =W 

1770  NEXT 

1730  IF  TS=0  THEN  1830  ELSE  W=l : SSL ( W, 2) = 1 : SSL ( W, 1 ) =3SS ( 1 . 3) 

1790  FOR  1=1  TO  TS: IF  SSS ( I , 1 ) =W  THEN  1820 

1300  IF  S3S(I,1)=0  THEN  1830 

13 10  W=W+1 :SSL (W,2)=I : SSL (W, 1 ) =3SS (1,3) 

1820  NEXT 

1830  IF  CS=0  THEN  1880  ELSE  W= 1 : SCL (W, 2) = 1 : SCL ( W. 1 ) =SCS ( 1 , 3) 

1840  FOR  1=1  TO  CS: IF  SCS ( I , 1 ) =W  THEN  1370 

1350  IF  SC3(I,1)=0  THEN  1880 

1360  W=W+1:SCL(W,2)=I:SCL(W, 1)=SCS(I,3) 

1370  NEXT 

1330  IF  MS=0  THEN  1930  ELSE  W= 1 : SNL ( W, 2) = 1 ; SNL ( W, 1) =SNS (1 . 3) 

1390  FOR  1  =  1  TO  MS; IF  3N3  (  1 .  1) =W  THEN  1920 

1900  IF  3NS(I,1)=0  THEN  1930 

1910  W=W+1 :SNL (W, 2)=I:SNL(W, 1 )=SNS(I,3) 

1920  NEXT 

1930  RETURN 

193?  " 

1940  'EXEC  SUBROUTINE-CONTROLS  TIMING  AND  EXECUTION  OF  MODEL 

2270  IF  HOUR=LATE  THEN  CLOSE  »2:ST0F  ELSE  PTIME=32000 

2230  IF  RTIME:H0UR  THEN  CLOSE  tt2:ST0P 

2290  IF  CC1':0  THEN  GOSUB  3390 

2300  IF  BEGNSH=1  THEN  GOSUB  7820 

2310  IF  BEG0CH=1  THEN  GOSUB  7750 

2320  IF  BEGSH=1  THEN  GOSUB  7360 

2330  IF  WSET-0  THEN  GOSUB  7080 

2340  GOSUB  3630: IF  M0DE=2  THEN  2450 

2350  IF  AM  THEN  2370 

2360  GOSUB  2550: GOTO  2270 

2370  IF  A>2  THEN  2390 

2380  GOSUB  370(:i:G0T0  2270 

2390  IF  A; 3  THEN  2410 

2400  GOSUB  4060: GOTO  2270 

2410  IF  a::  4  THEN  2430 

2420  GOSUB  4610: GOTO  2270 

2430  IF  A>5  THEN  STOP 

2440  GOSUB  4270: GOTO  2270 

2450  IF  AM  THEN  2470 

2460  GOSUB  4990: GOTO  2270 

2470  IF  a: 2  THEN  2490 

2  430  GOSUB  54(^l;l:G0Ta  2270 

2490  IF  A>3  THEN  2510 
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C500  G03UB  5790:30X0  2270 

2510  IF  a: 4  THEN  2530 

2520  GOSUB  6 1 60 : GOTO  2270 

2530  IF  A~5  THEN  STOP 

2540  GOSUB  A630: GOTO  2270 

254?  ' 

2550  "HRLD 

2560  FOR  1=1  TO  NHT: NCAR ( I ) =0: P (I ) =AF ( I ) : NEXT : LDT=0 

2570  IF  CM  THEM  2730 

2530  ri=S3H(W.  2)  :  W=SSA(M.  1  ) 

2590  IF  DS^::0  THEN  2610  ELSE  HICLK  (W.  3)  =  1  :  HICLK  (W,  2)  =H0UR+10:  FSH=SSH  (W  ,  2) 

2600  GOSUB  3400: RETURN 

2610  IF  33A(M,1)'-W  THEN  2630 

2620  I=SSA(N,3) 

2630  IF  P(  I)  :::=SSA(M,  4)  THEN  2650 

2640  HICLK (W, 1 ) =W : HICLK (W, 2) =H0UR+10: H ICLK (W, 3) =1: GOSUB  3400: RETURN 

2650  F (I) =P( I) -SSA(M,  4)  : NCAR ( I) =NCAR ( I >  +S3A(M, 4) 

2660  IF  SSA(M,5)  ::LDT  THEN  LDT  =  SSA(M,5) 

2670  IF  M=TA  THEN  2630  ELSE  M=M+1:G0T0  2610 

2630  H1CLK(W, 1 )=W:H1CLK(W,3)=2:H1CLK(W. 4)=LDT:F0R  1=1  TO  NHT 

2632  AP(I)=P( I ) : HICLK (W, 1+6) =NCAR ( I) :NEXT 

2690  FOR  1  =  1  TO  NHT:  IF  NCAR (I )< ; 0  THEN  I  1  =  1 

2700  NEXT 

2710  HICLK (W,0)=1 

2720  GOSUB  3200 

2730  IF  NS=0  THEN  DLTIME= 10: HICLK (W, 3) = 1 : HICLK (H, 0) =0 

2740  IF  DS=0  THEN  CC= 1 : WW=W: WSET  =  0: WTYF= I  I : WNS  =  NS : WLDT=LDT 

2750  H1CLK(W.2) =HOUR+DLTIME:FSH=M: IF  W=HSWAVE  AND  aCHCK=0  THEN  OCSET= 1 : BEQ0CH=1 

ELSE  IF  W=HSWAVE  THEN  NSSET= 1  :  BEGNSH= 1 

2760  GOSUB  3400 

2770  RETURN 

2730  IF  C::2  THEN  3010 

2790  MC=SCH(W, 2) :W=SCA (MC, 1 ) 

2300  IF  aCHCK=2  AND  S3ET=0  THEN  GOSUB  7900 

2310  IF  OS : ~ 0  THEN  2330  ELSE  H2CLK C W, 3) = 1 : H2CLK ( W, 2) =HOUR-MO; FCH=3CH ( W, 2) 

2320  GOSUB  3430: RETURN 

2330  IF  3CA(MC,1)-:W  THEN  2900 

2340  I=3CA(MC,3) 

2350  IF  P(I) : =SCA(MC, 4)  THEN  2370 

2360  H2CLK (W, 1)=W:H2CLK (W,2) =HOUR+ 10; H2CLK (W, 3) = 1 : GOSUB  3430: RETURN 

2370  P(I)=P(  I)  -SCA(MC,  4)  :  NCAR  '.  I)  =NCAR  (  I)  -t-SCA(MC,  4) 

2330  IF  SCACriC,5)  LOT  THEN  LDT=SCA  (NC,  5) 

2390  IF  MC=CA  THEN  2900  ELSE  MC  =  riC+ 1  :  GOTO  2330 

2900  H2CLK  (W.  1  )  =W:H2CLK  (W,  3)  =2:H2CLK  (I'J,  4)  =LDT:  FOR  1  =  1  TO  NHT 

2902  AP(I)=P( I)  :H2CLK (W,  H-to) =NC AR (I)  :NEXT 

29 IC)  FOR  1  =  1  TO  NHT:  IF  NCAR  (  I  )  -  :  0  THEN  I  1  =  1 

2920  NEXT 

2930  H2CLK  (I'J, 'J)  =1 

2940  IF  W=HCWAVE  AND  aCHCK=2  AND  3SET= 1  THEN  SSET=2: BEGSH= I 

2950  GOSUB  3200 

2960  IF  NS=0  THEN  DLTIIiE=  1  0:  H2CLK  (W.  3)  =  1  :  H2CLK  ( W,  0)  =0 

2970  IF  DS=0  THEN  CC  =  2: WW=W: WSET=0: WTYF= I  I : WNS  =  NS: WLDT=LDT 

2930  H2CLK  (W.  2)  =HOUR  +  DLTIME:FCH=riC:  IF  W<  :.  HCWAVE  THEN  3000 

2990  IF  0CHCK=2  AND  F5H  :HI  THEN  3SET=2: BEG3H= 1  ELSE  NSSET= 1 : BEGNSH=1 

3000  GOSUB  3430: RETURN 

3010  IF  F!1H- =HI  .THEN  STOP 

3020  MN=SNH(W, 2) :W=SNA(NN. 1) 

3030  IF  DS  ::  ;  'J  THEN  3050  ELSE  H3CLK  !W,  3)  =  1  :  H3CLK  (W,  2)  =HaUR+10  :  FMH  =  SNH  ( W,  2) 

3040  GOSUB  3550: RETURN 

3050  IF  3NA(riN,  1  X  M'J  THEN  3110 
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Z060     I=SNA  (MN,  3)  :  IF  P'.l)      -SNA  ( tin,  4  )  THEN  3030 

3070  H3CLP (W, 1 ) =W: H3CLK (W. 2) =H0UR+10: H3CLK ( W. 3) = 1 : GDSUB  3S50: RETURN 

3030  F ( I ) =F ( I ) -3MA (MM. 4) : MCAR ( I ) =MCAR ( I ) +3NA (MN, 4) 

3070  IF  SMA(MM,5)  LOT  THEN  LDT=3NA (MN. 5) 

31':)0  IF  MN  =  NA  THEN  3110  ELSE  MN=MN+1:G0TQ  3050 

3110  H3CLK(W, 1) =W:H3CLK(W, 3) =2:H3CLK (W. 4>=LDT 

3120  FOR  1=1  TO  NHT: AF( I) =P( I) :H3CLK(W. 1+6) =NCAR( I ) :NEXT 

3130  FOR  r  =  l  TO  NHT:  IF  NCAR  (  I) -!  :  0  THEN  I  1  =  1 

3140  NEXT 

3150  H3CLK(W,0>=1 

3160  GOSUB  3200 

3170  IF  NS=0  THEN  DLT  IME=  10:  H3CLK  (W,  3)  =  1  :  H3CLK  (W,  (J)  =0 

3130  IF  DS  =  0  THEN  CC  =  3: WW=W: WSET=0: WTYP= I  I : WNS=NS: WLDT=LDT 

3189  • 

3190  H~CLK (W, 2) =HOUR+DLTIME:FMH=MN:GOSUB  3550: RETURN 
3200  IF  hour: 1500  THEN  CLOSE  »2:ST0P 

3210  J=i;):FOR  1  =  1  TO  NHT 

3220  IF  NCAR(I)=0  THEN  3240 

3230  J=J+1:TYP=I 

3240  NEXT 

3250  IF  JM  THEN  3260 

3260  • 

3270  NS=HOST (LDT, TYF) 

3230  IF  NS=0  THEN  RETURN 

3290  IF  N3;nCAR(TYP)  THEN  3310 

•3300  FOR  J=l  TO  3:F0R  K=  1  TO  NHT:  HOST  (  J  ,  K  )  =0:  NEXT:  NEXT  :  DS=0:  GOTO  3350 

3310  RnFRC!=(NS-NCAR (TYP) ) /HOST (LDT, TYP) :FOR  J=l  TO  3:F0R  K=l  TO  NHT 

3312  HOST(J,K)=RMFRC' tHOST(J,K) : NEXT: NEXT 

3320  DS=1 

3330  "PRINT"PMFRC" ; RMFRC ' . "NS" ; NS 

3340  ' 

3350  DLTIME=0 

3360  IF  NCAR  (TYP) -•:=0  THEN  3380 

3370  DLTIME=DLTIME+HTF (5, LDT) : NCAR (TYP) =NCAR ( TYP) -NS: GOTO  3360 

3330  RETURN 

3390  STOP: RETURN 

3399  • 

3400  TIME=LATE: FOR  W=l  TO  H3WAVE 
3410  IF  H1CLK(W,2) >=TIME  THEN  3430 

3420  TIME=H1CLK (W,2) ; ACODE=H ICLK (W. 3) : HWAVE=W 

3430  NEXT 

3440  MCLOCK(  1  ,2)  =TIME:  IF  HWAVE;hSUJAVE  THEN  RETURN  ELSE  MCLOCK  (  1  .  1  >  =HWAVE:  MCLOCf-  ( 

1 , 3)=AC0DE:H1CLK (HWAVE, 2) =HOLD: MCLOCr:  ( 1 , 5) =1 : MCLOCK ( 1 , 6) =1 

3450  IF  AC0DE=6  THEN  HICLK (HWAVE. 2) =HOLD 

3460  RETURN 

3470  ■ 

3430  TIME=LATE:FOR  W= 1  TO  HCWAVE 

3490  IF  H2CLK (W, 2)  ; :=TIME  THEN  3510 

3500  TIME=H2CLK(W, 2) ; AC0DE=H2CLP  ( W. 3) :HWAVE=W 

3510  NEXT 

3320  MCLOCK (2, 2)=TIME: IF  HWAVE: HCWAVE  THEN  RETURN  ELSE  MCLOCK (2, 1 ) =HWAVE: MCLOCK ( 

2,3)=AC0DE:H2CLK (HWAVE, 2) =HOLD: MCLOCK (2,5) =1: MCLOCK (2, 6) =2 

3530  IF  AC0DE=6  THEN  H2CLK (HWAVE . 2) =HOLD 

3540  RETURN 

3549  • 

3550  ■ 

3560  TIME=LATE: FOR  W= 1  TO  HNWAVE 

3570  IF  H3CLK  (W.  2)  ,  =TIME  THEN  359':) 

3580  TIME=H3CLK (W, 2) : AC0DE=H3CLK (W. 3) : HWAVE=W 

3590  NEXT 
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Z600    nCLOC'r  '-,2)  =TIME:  IF  HWhVE:  HNWAVE  THEN  RETURN  ELSE  MCLOCK  (T,  1 )  =HWfiVE :  MCLQCI  :  ( 

3,3)  =AC0DE:H3CLK  (HWAVE.  2>  =HOLD  :  MCLOCK ',  3,  5)  ==1  :  MCLOCf  ■:Z,6)=~ 

3610  IF  ACaDE  =  6  THEN  H3CLK:  (HWAVE.  3 )  =HOLD 

3620  RETURN 

362?  • 

3630  •MSORT 

3640    TiriE  =  LATE:FaR     1  =  1     TO    6 

3650     IF    MCLOCK ( 1,2) : =TIMe    THEN    3670 

3660    TIME=MCLQCKCI.2) : J=l 

3670    NEXT 

3630  IF  TIME=LATE  THEN  END 

3690  HOUR  =  TIME:  W  =  MCLOCK(J,  1  )  :  A=MCLDCK(J,  3)  :  C  =  riCLOCK  (J,  6)  :  riODE  =  nCLaCK  ( J  ,  5)  :  PRINT" 

MIN";HOUR,  "CLASS" ;C,  "WAVE"; W,  " ACT  IV ITY" ; A,  "MODE"; MODE 

3694  RETURN 

3699  • 

3700  " HLNCH 

3710  IF  C-1  THEN  3310 

3720  M=SSH(W,2)  iFOR  1  =  1  TO  NHT:IF  HICLK  <W,  1+6  )  -' ;  0  THEN  NCAR  (  I  )  =H1CLK  (W,  1+6  )  :  TYP  = 

I 

3730  NEXT 

3740  •PRINT"Na  carri ers" ; NCAR (TYP) ; TYP 

3750  IF  SSA(M,l)<;w  THEN  3770 

3760  3SA(M.7)=1: IF  M=TA  THEN  FSH=HI:GOTa  3770  ELSE  M=M+l:GOTa  3750 

3770  LDT=H1CLK (W, 4)  : DT= (L2D I S+ALADIS )  *60/HSPD  CLDT) +HTF(6,LDT) +HTF(7,LDT) 

3730  IF  C=CC  AND  W=WW  THEN  W3ET=  1  :  CC  =  0  :  WW=rj:  DS=  1  :  CC1=0:  WWl  =>:> 

3790  GOSUB  3640 

3800  HICLK (W. 2) =HOUR+DT: HICLK (W, 3) =3:G0SUB  3400: GOTO  3990 

3310  IF  C:2  THEN  3910 

3320  MC=SCH(W,2) :FOR  1=1  TO  NHT:IF  H2CLK ( W. I +6)< : O  THEN  NCAR ( I ) =H2CLK ( W. I +6 ) ; TYP 

=  1 

3330  NEXT 

3340  IF  SCA(MC,1)<:::W  THEN  3360 

3350  SCA (MC. 7) =1 : IF  MC=CA  THEN  FCH=HI:GaTO  3360  ELSE  MC=MC+1:G0T0  3340 

3360  LDT  =  H2CLK(W,  4)  :  DT=  (LZD  IS  +  ALADI  S)  I16O/HSPD  (LDT)  +HTF(6,LDT)  +HTF(7,LDT) 

3S7i:i  IF  C=CC  AND  W=WW  THEN  WSET=1  :  CC=0:  WW=0:  DS=  1  :  CC1=0:  WW1=0 

3330  GOSUB  3640 

3390  H2CLK(W,2) =H0UR+DT:H2CLK(W. 3) =3:G0SUB  3430 

3900  GOTO  3990 

3910  MN=3NH(W,  2)  :  FOR  1  =  1  TO  NHT.-IF  H3CLK  (W,  1+6  )  ':  -  0  THEN  NCAR  C  I  )  =H3CLK  ( W,  1+6  )  :  TYP 

=  1 

3920  NEXT 

3930  IF  SNA(MN.1)-;W  THEN  3950 

3940  SNA (MN, 7) =1 : IF  MN=NA  THEN  3950  ELSE  MN=MN+1:G0T0  3930 

3950  LDT  =  H3CLK  (W.  4)  :  DT=  (LZDI  3+ALADIS )  *6<:)/HSFD  (LDT)  +HTF(6.LDT)  +HTF  (7,  LDT) 

3960  IF  C=CC  AND  W=WW  THEN  WSET=  1  :  CC=0 :  WW=':) :  DS=  1  :  CC  1  =i:>:  WW  1  =0 

3970  GOSUB  3640 

3930  H3CLK,  (W,  2)  =H0UR  +  DT:H3CLK  (W,  3)  =3:G0SUB  3550 

3990  PAC=HE3T (LDT, TYP) -HOST (LDT,  TYP) 

3992  IF  NCAR ( TYP )<FAC  THEN  4020 

4000  FOR  J=l  TO  3:F0R  K= 1  TO  NHT: HOST ( J , K ) =HEST ( J , K) : NEXT: NEXT 

4002  IF  DS=1  THEN  GOSUB  7080 

4010  RETURN 

4020  RMFRC!=NCAR(TYP) /PAC 

4030  FOR  J=l  TO  3: FOR  K^l  TO  NHT 

4032  HOST (J, K) =H03T(J,K) +RMFRC ' * (HEST ( J , K) -HOST ( J , K ) ) 

4034  IF  HOST  (J.i;)  :  HEST(J.K)  THEN  HOST  ( J  ,  K)  =HEST  ( J  .  f-  ) 

4040  NEXT: NEXT 

4042  IF  DS=1  THEN  GOSUB  7030 

4050  RETURN 

4059  ■ 


188 


4060  ■ HUMLD 

4070  IF  C:-  GOTO  75A0  ELSE  IF  C'l     THEM  GOTO  7r70  ELSE  M=53H(W.C) 

4030  l'J  =  S3A  (M.  1  ) 

4090  FOR  1  =  1  TO  rJHT:  MCAR  (  I  )  =HlCLf:  (W.  I -^6 )  :  FOR  J=l  TO  ~:FOR  l'  =  l  TO  MLZ 

4092  DLABAT (I , J , K) =0: NEXT: NEXT : NEXT 

4100  FOR  K=l  TO  NLZ  :  ZONE  (K  )  =i;):  NEXT 

4110  IF  3SA(M,1)<:W  THEN  4140  ELSE  I=S3A(M.3) 

4120  LDT=S3A(M.5) :DEST=33A(M,6) : IF  DEST ; =NLZ  THEN  4  170  ELSE  PR INT"DE3T" ; DEST : STO 

P 

4130  IF  ZN(DE3T) .HOUR  THEN  HICLK (W, 2) =ZN ( DEST ) : HICLK (W, 3) =3: GOSUB  3400: RETURN  EL 

SE  DLABATC I.LDT, DEST) =DLABAT( I. LDT,DE3T)+SSA(M, 4)  : ZONE (DEST) =1 :  IF  ri=TA  THEN  4140 

ELSE  M=M+1:G0T0  4110 
4140  FOR  1  =  1  TO  NHT:  IF  NCAR  (  I  )  < -.  0  THEN  L=I 
4150  NEXT 

4160  FOR  K=l  TO  NLZ : DT IME (K) =0: NEXT 
4170  FOR  K=l  TO  NLZ: FOR  J=l  TO  3: FOR  1=1  TO  NHT 

4130  IF  DLABATC  I,  J,K)  <;=0  THEN  4190  ELSE  DLABAT  (I  ,  J .  K)  =DLABAT  (I  .  J  ,  K) -HGF  (  I  )  :  DTIME 
tK)  =DTIME  (K)  +HTF  CI,  J)  -t-HTF  (2,  J  ) +HTF  (3,  J  >  :  GOTO  4180 
4190  NEXT: NEXT: NEXT 
4200  ZTIME=0:FOR  K=l  TO  NLZ 

4210  IF  DTIME(K) -ZTIME  THEN  ZTIME=DTIME (K ) 

4220  NEXT:H1CLK(W,2)=H0UR+ZTIME:H1CLK(W, 3)=4:F0R  K=l  TO  NLZ 
4222  IF  Z0NE(K)=1  THEN  ZN (K ) =H ICLK (W, 2) 
4230  NEXT 

4240  'PRINT  "Nr  o-f  Hel  os"  :  HICLK  (W  .  L  +  6  ) 
4250  GOSUB  3400: RETURN 
4260  RETURN 

4269  • 

4270  IF  CM  THEN  4490 
4280  FOR  TH=1  TO  NHT 

4290  IF  HlCLK<W,TH+6)=0  THEN  4330 

4300  NH=HlCLK(W,TH+6) : IF  W>=TRNH1  THEN  4320 

4310  NH=1 ' «NH 

4320  AP(TH)=AP':TH) +NH 

4330  NEXT:H1CLK(W, 2)=LATE 

4340  •pRINT"Hslo  Pool " ; AP ( 1 ) ; AP ( 2) ; AP ( 3) ; AP ( 4 ) 

4330  IF  M=TA  THEN  F3H=HI 

4360  IVAL=0:  J=0:FOR  1  =  1  TO  H3WAVE:IF  HlCLKd.O)  0  THEN  4330 

4370  J=J+1: IVAL=1 : IF  J=l  THEN  FSH=3SH(I,2) 

4330  NEXT: IF  IVAL=0  THEN  GOSUB  3400: GOTO  4430 

4390  IF  0CHCK=2  AND  SSET=1  THEN  GOSUB  3400: RETURN 

4400  M=FSH:FSHOLD  =  FSH:  W=SSA  (M,  1)  :  IF  W=':)  OR  HICLK  (H,  0)  '  0  THEN  4471;  ELSE  SSH(W.2)  = 

FSH:FOR  1=1  TO  NHT: P ( I ) =AP (I ) : NEXT 

4410  IF  S3A(M.1)<;W  THEN  4460 

4420  I=3SA(M,3) 

4430  IF  P (I) ; =SSA(M, 4)  THEN  4430  ELSE  FSH=FSHOLD : GOSUB  3400 

4440  RETURN 

4450  P(I)=P(I) -SSA(ri.  4)  :  IF  h=TA  THEN  4460  ELSE  ri=M+l:GOTO  4410 

4460  H1CLK(W. 1 ) =W: HICLK ( W, 2) =HOUR : HICLK (W.3)=l : GOSUB  3400: FSH=n: RETURN 

4470  FSH=HI:GOSUB  3400 

4480  RETURN 

4490  IF  C;2  THEN  4560 

4500  FOR  TH=1  TO  NHT 

4510  IF  H2CLK  (W,  TH+6)  =':>  THEN  4530 

4520  AP  ( TH )  =AP  ( TH )  +H2CLK  ( W ,  TH-t-6  > 

4530  NEXT:H2CLK (W, 2) =LATE 

4540  IF  MC=CA  THEN  FCH=HI 

4550  GOSUB  3480: RETURN 

4560  FOR  TH=1  TO  NHT:  IF  H3CLK  ■:  W,  TH+6 )  =0  THEN  4530 

4570  AP  'TH)=AP (TH) +H3CLK (W, TH  +  6) 
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4530  NEXT:H-CLK:  (W,  2)  =LATE 
4390  IF  MN=NA  THEN  FMH=HI 
4600  ALL=1:G0SUB  3550: RETURN 

4609  • 

4610  DT=HTF(3, 1 ) +HTF (4, 1) + (L2D I S+ALAD IS) *60/HSPD( 1 ) 
4620  IF  CM  THEN  4690 

4630  M=SSH(W.2) 

4640  33A(M, 7) =2: DEST=SSA (M . 6 ) :PSH(DEST) =RSH(DEST) +S3A(M. 2) : PASH=PASH+SSA (M. 2) 

4642  SFRH' (DEST) =SFPH ' (DEST) +SSA (M.O) : SFASH ' =SFA3H ' +SSA(M,0) : RF ' =SFASH ' /TWUV 

4644  IF  M=TA  THEN  4650  EL3E  M=ri+1:IF  S3A(M,n=W  THEN  4640 

4650  RRINT"RA5H  Total :"; RASH: PR  INT  " t i me:  " ; HOUR 

4660  RRINT"FIREFWR  ASHORE" ; SFASH ', PF ' 

4664  PRINT  #2, USING  "#*»####.*»#";  HOUR  ;  FASH;  PF  ' 

4670  H1CLK(W,0)=2 

4630  HICLK (W, 2) =DT+HOUR: HICLK (W,3) =5:G0SUB  3400: RETURN 

4690  IF  C~2  THEN  4750 

4700  MC=SCH(W,2) 

4710  SCA(MC, 7) =2: DE3T=SCA (MC , 6) :PSH(DEST) =F3H(DE3T) +SCA(nC, 2) : PASH=PASH+SCA (MC. 2 

) 

4712  SFFH! (DEST) =SFPH ' (DEST) +SCA(MC. 0) : SFASH ' =SFASH I +SCA (MC, 0) : FF ' =SFASH ' /TWUV 

4714  IF  MC=CA  THEN  4720  ELSE  riC  =  nC  +  l:IF  SCA(riC,l>=W  THEN  4710 

4720  FRINT"FASH  Total :"; PASH: PR  INT  " t i me :  " ; HOUR 

4730  PRINT"FIREFWR  ASHORE" ; SFASH ', PF ': H2CLK ( W, 0) =2 

4734  PRINT  »2, USING  "«####».»#"; HOUR: RASH; PF ' 

4740  H2CLK (W, 2) =DT+HOUR : H2CLK (W, 3) =5:G0SUB  3480: RETURN 

4750  MN=SNH (W, 2) 

4760  SNA(riN,  7)  =2:  DE3T  =  SNA  (MN,  6  )  :  PSH  (DEST)  =PSH  (  DEST)  +SNA(MN,  2)  :  PASH  =  PASH  +  SNA  (hN.  2 

) 

4762  SFASH  '  =SFASH  ' +SNA(MN,0)  ;PF' =SFASH'  /TWUV  :  IF  MN=NA  THEN  4770  ELSE  MN=rlN+l:IF 

SNA(riN,l>=W  THEN  4760 
4770  PR  I NT "PASH  Total :"; PASH: PRINT  "time:"; HOUR 
4730  PRINT"FIREPWR  ASHORE" ; SFASH' , PF ' : H3CLK (W,0)=2 
4734  PRINT  #2. USING  "»#*t»tt#.  tttt  ";  HOUR  ;  PASH;  PF  ' 
4790  H3CLK (W, 2) =DT+HOUR: H3CLK (W, 3) =5: GOSUB  3560: RETURN 
4799  • 

4300  PRINT"L33aRT" 

4810  TIME=LATE:FOR  W= 1  TO  L3WAVE:IF  LICLK ( W, 2) : =TIME  THEN  4330 
4320  TIME=L1CLK (W. 2) : AC0DE=L1CLK (W, 3) : LWAVE=W 

4330  NEXT:  IF  MCLOCK ( 4 ,  1 ) =LWAVE  AND  MCLOCK ( 4 , 2) =TINE  AND  MCLOCK ( 4 , 3) =ACaDE  THEN  4 
350 

4340  MCLOCK (4,2) =T IME: MCLOCK ( 4 , 1 ) =LWAVE : MCLOCK (4.3) =AC0DE:L1CLK (LWAVE, 2) =HOLD 
4342  MCLOCK (4, 5) =2: MCLOCK (4,6) =1 : IF  AC0DE=6  THEN  L ICLK (WAVE, 2) =LATE 
4830  RETURN 

4360  ■ 

4361  •LC30RT 

4870  TIME=LATE:FOR  W= 1  TO  LCWAVE: IF  L2CLK (W, 2 )  =T IME  THEN  4390 

4880  TIME=L2CLK  (W.  2)  :  AC0DE-L2CLf-.  (W,  3)  :  LWAVE  =  W 

4890  NEXT:IF  MCLOCK (5. 1 ) =LWAVE  AND  MCLOCK (5 . 2 ) =T IME  AND  MCLOCK (5. 3) =ACODE  THEN  4 

910 

4900  MCLOCK (5, 2) =T IME: MCLOCK (5, 1) =LWAVE : MCLOCK (5, 3) =AC0DE:L2CLK (LWAVE, 2) =HOLD 

49i:)2  MCLOCK  (5,  5)  ^2:  MCLOCK' (5,6)  =2:  IF  AC0DE  =  6  THEN  L2CLK  (LWAVE,  2)  =LATE 

4910  RETURN 

4920  ■ 

4921  •LNSORT 

4930  TIME=LATE:FOR  W= 1  TO  LNWAVE:IF  L3CLK ( W, 2) ~ =TIME  THEN  4950 

4940  TIME^L3CLK (W, 2) : AC0DE=L3CLK (W, 3) :LWAVE=W 

4950  NEXT:  IF  MCLOCK (6 ,  1 ) =LWAVE  AND  MCLOCK:  ( 6 , 2 ) =T I  ME  AND  MCLOCK (6 . 3) =ACODE  THEN  4 

970 

4960  MCL0C'r:(6.  2)  =TIME:  MCLOCK  (6.  1  )  =LWAVE:  MCLOCK  (6,  3)  =AC0DE:L3CLK  (LWAVE.  2)  =HaLD 

4962  MCLOCK (6,5)=2:MCL0CI  (6,6) =3: IF  AC0DE=6  THEN  L3CLK (LWAVE, 2) =LATE 
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4970  RETURN 

4930  ■ 

4990  L=NLT+NBT+NCT:FaR  1=1  TO  L 

4992  NCmR(  I  )  =0:  P  (  I+NHT)  =AP  (  I+MHT)  :NEXT:  MCAR  =  i:):  IF  C:i  THEN  3120 

5000  IF  F3L.:=HI  THEN  STOP 

5010  L3=SSL(W,2) 

5020  IF  WD<';0  THEN  5040  ELSE  L  ICLK  (W  .  ~)  =  1  :  L  ICLK  ( W.  2  )  =HOLD 

5030  G03UB  4800: RETURN 

5040  IF  S3S(LS,1)  JW  THEN  5070  ELSE  I=3S3 (LS. 3) -NHT 

5050  IF  P(  I+NHT) --3SS(L3,  4)  THEN  LI  CLK  CW,  1)  =W:  L  ICLK  ( W,  2)  =HOUR+ 10  :  LICLK  (  W,  3)  =  1  :  GOSU 

B  4S00: RETURN 

5060  P<  I+NHT)  =P  (  I+NHT)  -S3S  (LS,  4)  :  NCAR  (  I  )  =NCAR  (  I  )  +SS3  (L3,  4)  :  MCAR  =  riCAR  +  SSS  'L3,  4) 

5062  IF  LS=TS  THEN  5070  ELSE  L3=LS+1:G0T0  5040 

5070  LICLK (W, 1 )=W:L1CLK (W.3) =2:FaR  1=1  TO  L 

5072  AF ( I+NHT)=P ( I+NHT)  : LICLK (W,  1+6) =NCAR  (  I  )  :NEXT 

5080  GOSUB  5320: IF  WD=0  THEN  CCC= 1 : WWW=W: GSET=0 

5090  LICLK (W,0)=1 

5100  LlCLK(W,2)=H0UR+DLTinE:FSL=L3: IF  W=L3WAVE  AND  OCLCK=0  THEN  LC3ET= 1 : BEGOCL= 1 

ELSE  IF  W=L3WAVE  THEN  NL3ET= 1 : BEGNSL= 1 
5110  GOSUB  4300: RETURN 

5120  IF  C>2  THEN  5240  ELSE  LC=SCL(W,2) 

5130  IF  WD<:0  THEN  5150  ELSE  L2CLK (W, 3) = 1 : L2CLK (W, 2 ) =HOLD 
5140  GOSUB  4360; RETURN 

5150  IF  SCSCLC,1);;W  THEN  5130  ELSE  I =SC3 (LC. 3) -NHT 

5160  IF  P(I+NHT)<SCS(LC, 4) THEN  L2CLK (W,  1 ) =W: L2CLK ( W, 2) =HOUR+ 1 0 : L2CLir  ( W, 3 ) = 1 : GOSU 
B  4860: RETURN 

5170  P  (  I+NHT)  =P  (  I+NHT)  -SCS  (LC.  4)  :  NCAR  (  I  )  =NCAR  (  I  )  +SC3  (LC,  4)  :  r-ICAR=MCAR  +  SC3  (LC,  4) 
5172  IF  LC=C3  THEN  5190  ELSE  LC=LC+1:G0T0  5150 
5180  L2CLK (W. 1 ) =W:L2CLK (W, 3) =2:F0R  1=1  TO  L 

5132  AP( I+NHT) =P( I+NHT) :L2CLK (W, I+6)=NCAR ( I ) :NEXT:GOSUB  5320: IF  WD=0  THEN  CCC=2: 
WWW=W:GSET=0 

5190  L2CLK(W. 2 ) =HOUR+DLT IME: FCL=LC: L2CLK (W,0) =1 

5200  IF  W=LCWAVE  AND  QCLCK=2  AND  LLSET=1  THEN  LLSET=2: BEG3L= 1 
5210  IF  W<-LCWAVE  THEN  5230 

5220  IF  0CLCK  =  2  AND  F3L  "HI  THEN  LLSET  =  2: BEG3L=  I  ELSE  NL3ET= 1 : BEGNSL= 1 
5230  GOSUB  4360: RETURN 
5240  LN=SNL(W,2) 

5250  IF  WD- ;0  THEN  5270  ELSE  L3CLK (W, 3) = 1 : L3CLK ( W. 2) =HOLD 
5260  GOSUB  4920: RETURN 

5270  IF  3NS(LN,1)':W  THEN  5300  ELSE  I=SNS (LN. 3) -NHT 

5230  IF  P ( I+NHT)  -:3N3 (LN, 4) THEN  L3CLK (W,  1 ) =W: L3CLK (W, 2) =H0UR  +  10: L3CLK (W, 3) =1 : GG3U 
B  4920: RETURN 

5290  P( I+NHT) =P ( I+NHT) -SNS (LN, 4) : NCAR ( I ) =NCAR ( I ) +SN3 (LN, 4) : MCAR=nCAR+3NS (LN. 4) 
5292  IF  LN=MS  THEN  5300  ELSE  LN=LN+1:G0T0  5270 
5300  L3CLK (W, 1) =W:L3CLK (W. 3)=2:FaR  1=1  TO  L 

5302  AP ( I+NHT) =F ( I+NHT) :L3CLK (W, 1+6) =NCAR ( I > :NEXT: GOSUB  5320: IF  WD=0  THEN  CCC=3: 
WWW=W;G3ET=0 
5310  L3CLK(W,  2)  =HOUR  +  DLTIME:  FriL  =  LN:  L3CLK  (W,  ';))=!  :  GOSUB  492':' :  RETURN 

5319  • 

5320  PRINT"WELDE!-:":N3  =  WDST:  DLTIME  =  0:  IF  NS:"=MCAR  THEN  WD3T  =  0  ELSE  l'JDST=WDST-MCAR 
5330  FOR  1  =  1  TO  NLT  +  NBT+NCT :  IF  NCAR ( I )   0  THEN  DTM ( I ) =LTF ( 5,  I  )  ELSE  DTM ( I ) =0 
5340  NEXT: IF  WDST=0  THEN  5370 

5350  FOR  1  =  1  TO  NLT+NBT  +  NCT :  IF  DTM ( I )  ' DLT IME  THEN  DLT IME  =  DTM (  I  ) 

5360  NEXT: RETURN 

5370  WD=0:NRES=0: FOR  1  =  1  TO  NLT+NBT+NCT : NRES  =  NRE3  +  NCAR (  I  ) 

5372  IF  NRE5  NS  THEN  5330  ELSE  DLTIME=DLT IME+DTM ( I) : NRES=NRE3-N3 

5330  NEXT 

5390  RETURN 

5399  • 
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■z,400    DT=';i:  riCAR  =  ':i:  IF  CM  THEN  5520  ELSE  L3  =  33L  ■:  W  ,  2  )  :  POR  1  =  1  TO    riLT  +  NBT  +  NCT  :  NCAR  (  I 
)=L1CLK(W, 1+6) :NEXT 

3410  IF  3S3(L3,1)=W  THEN  333  (LS,  7 )  =  1  :  IF  L3  =  T3  THEN  5430  ELSE  LS=L3+l:GaTa  541';) 
5420  FOR  1  =  1  TO  NLT:IF  NCAR  (I  )   0  THEN  D=LODD  IS  !(60/B3RD  (  I  ) +LTF  (  6  .  I  ) +LTF  (  7  .  I  )  :  hCA 
R  =  MCAR+NCAR  C  I  )  ELSE  D=<:' 

5430  IF  d;dt  then  DT=D 

5440  NEXT 

5450  FOR  I=NLT+1  TO  NLT+NBT+NCT 

3452  IF  NCAR(I)'  0  THEN  D  =  DLAD I S*60/BSFD ( I ) +LTF <6,  I ) +LTF (7.  I  1  : MCAR  =  MCAR+NCAR ( I ) 

ELSE  D=0 

5460  IF  SSL (W.  1 )  NHT+NLT+NBT  THEN  D  =  ASAD I S*60/BSFD (I ) +CLZD I 3*60/CSFD  +  LTF (6,  I  ) +LT 

F(7, I) 

5470  IF  d;dt  then  DT=D 

5430  NEXT 

5490  IF  SSL(W, 1 ) ;NHT+NLT+NBT  THEN  I =NLT+NBT+NCT: DT=A3AD IS*60/BSFD ( I ) +CLZD IS*60/C 

3PD+LTF(6. I)+LTF(7, I) 

5500  IF  C=CCC  AND  W=WWW  THEN  G3ET= 1 : CCC=0: WWW=0: WD= 1 

5510  LICLK (W,2)=H0UR+DT:L1CLK (W,3) =3:GaSUB  4800: GOTO  5760 

5520  IF  C:2  THEN  5640  ELSE  LC=SCL (W, 2) : FOR  1=1  TO  NLT+NBT+NCT: NCAR ( I ) =L2CLK (W, I + 

6) :NEXT 

5530  IF  SC3(LC,1)=W  THEN  SCS (LC, 7> = 1 : IF  LC=CS  THEN  5570  ELSE  LC=LC+l:GOTa  5530 

5540  FOR  1=1  TO  NLT:IF  NCARCDOO  THEN  D=LODD IS*60/BSPD (I ) +LTF ! 6, I > +LTF ( 7 , I ) : MCA 

R=nCAR+NCAR ( I )  ELSE  D=0 

5550  IF  D~DT  THEN  DT=D 

3560  NEXT 

3570  FOR  I=NLT+1  TO  NLT  +  NBT+NCT:  IF  NCAR (I )  <' >0  THEN  D  =  DLADI3*60/BSPD C I ) +LTF (6 ,  I )  + 

LTF(7, I) :MCAR=MCAR+NCAR(I)  ELSE  D=0 

3380  IF  SCL(W. 1 )  NHT+NLT+NBT  THEN  D=ASADIS*60/BSPD ( I ) +CLZD IS*60/CSPD+LTF (6 , 1 ) +LT 

F(7, I) 

3390  IF  D'DT  THEN  DT=D 

5600  NEXT 

5610  IF  3CL (W, 1 ), NHT+NLT+NBT  THEN  I=NLT+NBT+NCT: DT=ASADIS*60/BSPD ( I > +CLZD IS*60/C 

SPD+LTF(6, I)+LTF<7, I) 

5620  IF  C=CCC  AND  W=WWW  THEN  GSET=  1  :  CCC=0  :  WWW=<;i:  t.JD=  1 

3630  L2CLK(W, 2>=H0UR+DT:L2CLK(W, 3) =3:G0SUB  4860: GOTO  5760 

3640  LN=SNL(W,2) :FOR  1=1  TO  NLT*NBT+NCT : NCAR ( I ) =L3CLK ( W, I +6 ) : NEXT 

5650  IF  SNS(LN,1)=W  THEN  SNS (LN, 7) = 1 : IF  LN=MS  THEN  5690  ELSE  LN=LN+1:G0T0  5650 

3660  FOR  1=1  TO  NLT 

3662  IF  NCAR(I)::;0  THEN  D=L0DDI3*60/BSRD  (  I  ) +LTF  (6 ,  I  ) +LTF  (7,  I  )  :  riCAR  =  MCAR+NCAR  (  I  ) 

ELSE  D=0 

5670  IF  D~DT  THEN  DT=D 

3630  NEXT 

3690  FOR  I=NLT+1  TO  NLT+NBT+NCT 

3692  IF  NCAR(I):-(:i  THEN  D  =  DLAD  IS*60/BSFD  (  I  ) +LTF  (6  ,  I) +LTF  (  7  ,  I)  :  MCAR=MCAR+NCAR  (I  ) 

ELSE  D=0 

3700  IF  D~DT  THEN  DT=D 

5710  NEXT 

3720  IF  3NL(W,1)  NHT+NLT+NBT  THEN  I=NLT+NBT+NCT : DT=A3AD IS*60/BSFD (I ) +CLZD I S*60/C 

3PD+LTF(6,  I)+LTF(7,  I) 

3730  IF  DDT  THEN  DT=D 

3740  IF  C=CCC  AND  W  =  WWW  THEN  GSET=  1  :  CCC=<:' :  WWW=0 :  WD=  1 

3730  L3CLK(W, 2) =H0UR+DT:L3CLK (W, 3) =3:G03UB  4920 

5760  SPAC=WE3T-WDST: IF  NCAR  SPAC  THEN  WDST=WDST+MCAR  ELSE  WDST=WEST 

3770  IF  WDST~WE5T  THEN  WDST=WEST 

5730  RETURN 

3739  • 

5790  L=NLT+NBT+NCT 

5300  ZrJ=NNB  +  NCLZ:  IF  CV2  THEN  6000  ELSE  IF  CM  THEN  5910  ELSE  LS  =  SSL(W,2; 

5310  FOR  1=1  TO  L:NCAR(I)=LlCLt'(W, 1+6) :NEXT:LlCLr (W,0)=1 

5320  FOR  1  =  1  TO  L  :  FOR  K=  1  TO  ZN:  DBAT  ■;  I  .  K  )  =0:  NEXT:  NEXT 
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59~0  FOR  y>i     TO  ZN:LZaNE(K)  =0:NE:<T 

5340  IF  S33  (LS.  1  )  ::  ~W  THEN  S870  ELSE  I  =333  (LS  ,  3) -NHT 

5350  DE3T  =  S33  CLS.  i)  :  IF  LZN(DEST)  HOUR  THEN  L  1  CLK.  ( W,  2)  =LZN  !  DE3T  )  :  L  ICLt- ( W.  7  )  =3  :  G03 

UB  4300: RETURN 

5860  DBAT( I .DEST)=DBAT ( I, DEST) +SSS(LS,4) iLZQNE (DE3T) =1 

5862  IF  LS  =  T3  THEN  5870  ELSE  L3=LS-t-l  :  GOTO  5340 

5870  GOSUB  6090 

5880  LICLK  (W,2)=H0UR  +  ZTIME:LlCLK(t'J,3)  =4:F0R  K=l  TO  2N 

5882  IF  LZ0NE(K)=1  THEN  L2N (K) =L1CLK ( W, 2) 

5890  NEXT:PRINT"NR  OF  CRAFT" ; L ICLK (W, LL+6 ) 

5900  GOSUB  4300: RETURN 

5910  LC=SCL(W,2) 

5920  FOR  1=1  TO  L: NCAR ( I ) =L2CLK (W, 1+6 ) : FOR  K=l  TO  ZN 

59~0  IF  SCS(LC,1)<;W  THEN  5960  ELSE  I =SCS (LC, 3) -NHT 

5940  DEST=SCS (LC,6) : IF  LZN (DEST)  HOUR  THEN  L2CLK ( W, 2 ) =LZN (DEST ) : L2CLK ( W, 3) =3: GOS 

UB  4360: RETURN 

5950  DBAT ( I , DEST) =DBAT ( I . DEST) +SC3 (LC, 4) : LZONE (DEST) =1 

5952  IF  LC=CS  THEN  5960  ELSE  LC=LC+l:GaTO  5930 

5960  GOSUB  6090 

5970  L2CLK(W,2)=H0UR+ZTIME:L2CLK(W,3)=4:F0R  K=l  TO  ZN 

5972  IF  LZONE (K)=l  THEN  LZN (K ) =L2CLK ( W, 2) 

5930  NEXT:FRINT"NR  OF  CRAFT" ; L2CLK (W. LL+6 ) 

5990  GOSUB  4360: RETURN 

5992  DBAT ( I , K ) =0 : L ZONE ( K ) =0 : NEX T : NEX T : L2CLK ( W , 0 ) = 1 

6000  LN=SNL(W,2) 

6010  FOR  1=1  TO  L:NCAR(I) =L3CLK(W, 1+6) :FOR  K=l  TO  ZN 

6012  DB AT ( I , K ) =0 : L Z ONE ( K ) =0 : NE X T : NEX T : L3CLK ( W , 0 ) = 1 

6020  IF  SNS(LN.n<;W  THEN  6050  ELSE  I=SNS (LN, 3) -NHT 

6030  DEST  =  SNS(LN,6)  :  IF  LZN (DEST ); HOUR  THEN  L3CLK (W. 2) =L2N ( DEST)  : L3CLf' ( W, 3) =3: GOS 

UB  4920: RETURN 

6040  DBAT (I, DEST)=DBAT( I, DEST) +SNS(LN, 4) ; LZONE (DEST) =1 

6042  IF  LN=riS  THEN  6050  ELSE  LN=LN+1:G0T0  6020 

6050  GOSUB  6090 

6060  L3CLK  (W,  2)  =H0UR  +  ZTiriE:L3CLK  (W.  3)  =4:F0R  K=i  TO  ZN 

6062  IF  LZONE  (K)=l  THEN  LZN  (K)  =L3CLH:  ( W,  2) 

6070  NEXT:FRINT"NR  OF  CRAFT" ; L3CLK (W, LL+6 ) 

6030  GOSUB  4920: RETURN 

6090  FDR  1=1  TO  L; IF  NCAR ( I ) <  0  THEN  LL=I 

6100  NEXT: FOR  K=l  TO  ZN: DTIME (K ) =0: NEXT 

6110  FOR  K:=1  TO  ZN:FOR  1  =  1  TO  L 

6120  IF  DBAT(I,K)<=0  THEN  6130  ELSE  DBAT ( I , K ) =DBAT ( I , K) -LGF (I ) : DT IME (K ) =DTIME (K ) 

+LTF  (1,1)  +LTF  (2,1)  +LTF  '3,1):  GOTO  6  1  20 

6130  NEXT: NEXT 

6140  ZTIME=':):FOR  K=l  TO  2N:IF  DTIME  (K)  ZT  IME  THEN  ZT  IME  =  DTIME  (K ) 

6150  NEXT: RETURN 

6159  " 

6160  DT=0:  ZN=NNB  +  NCLZ:  ZIG=i:>:  ZIGNAL=0:FOR  1  =  1  TO  NLT  +  NBT  +  NCT 
6162  ZAVE(I)=0:NEXT:  IF  CM  THEN  6320 

6170  LS=SSL(W,2) 

6130  SSS(LS, 7) =2: DEST=SSS (LS,6) :PSH(DEST) =FSH(DEST) +S3S (LS, 2) : FASH=PASH+SSS (L3,2 

) 

6132  SFFH ' (DEST) =SFFH ' (DEST) +S3S (L3, 0) : SFA3H ' =SFASH ' +SSS (LS, 0) : PF ' =SFASH ' /TWUV ' 

6134  IF  S3S  (L3,  3)  ::=NHT+NLT  THEN  ZIGNAL=1  ELSE  ZAVE  (SSS  (L3,  3) -NHT)  =  1 

6190  IF  SSS(LS, 3) : NHT+NLT+NBT  THEN  ZIG=1 

6200  IF  L3=TS  THEN  6220 

6210  LS=LS+1:IF  333  (LS,  1  )  =1')  THEN  6130 

6220  FR!NT"FASH  Total :"; FASH: PR  INT  "  t i me:  " ; HOUR 

6230  PRINT"FIREPWR  ASHORE" : SFASH ', FF ' 

6234  PRINT  t»2,  USING  "tt#tt«tttt .  *t#"  ;  HOUR:  FASH:  PF  ' 

6240  IF  ZIGNAL=1  THEN  hZOO 
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6250  IF  ZIG=1  THEN  I =WLT  +  MBT+NCT : DT=LTF (7,  I ) +LTF ( 4,  I ) +A3AD I3*60/BSFD U ) +CL:D ! S *  3 

0/C3PD:G0T0  6290 

6260  FOR  1=1  TO  NLT+NBT+NCT 

6262  IF  2AVE(I)=0  THEN  6230  ELSE  D  =  LTF  (  3.  I  ) +LTF  (  4  ,  I) +DLAD  I3*6<;i/B3FD  (  I  ) 

6270  IF  D  DT  THEN  DT-D 

62S0  NEXT 

6290  L1CLK(W,2)=H0UR+DT:L1CLK (W, 3) =5:G0T0  6310 

6300  L1CLK(W,2)=LATE 

6310  LlCLKd'J,  0)=2:G0SUB  4800:  RETURN 

6320  IF  02  THEN  6480 

6330  LC=SCL(W,2) 

6340  SC3 (LC,7)=2:PASH=PASH+SC3 (LC. 2) : SEASH=3EA3H+SC3 (LC.5) : SFASH ' =SFASH ' +SC3(LC, 

0)  :FF  l=3FA3H'  /TWUV 

6342  IF  3C3(LC,3)<:=NHT+NLT  THEN  ZIGNAL=1  ELSE  ZAVE  ( SCS  (LC,  3) -NHT)  =  1 

6350  IF  SCS  (LC,  3)  ;NHT-^NLT+NBT  THEN  ZIG=1 

6360  IF  LC=C3  THEN  6330 

6370  LC=LC+1:IF  SC3(LC,n=W  THEN  6340 

6330  PRINT"FA3H  Total :"; PASH: PRINT  " 1 1  me: " ; HOUR 

6390  PRINT"FIREPWR  ASHORE "; SFASH ', PF ' 

6394  PRINT  #2.  USING  "»#####.  t*#"  ;  HOUR;  PASH;  PF  ' 

6400  IF  ZIGNAL=1  THEN  6460 

6410  IF  ZIG=1  THEN  I=NLT+NBT  +  NCT:  DT  =  LTF  (3,  I  ) +LTF  ( 4,  I  ) +ASAD  IS*60/5SPD  (  I) -<-CLZDI  S1<6 

0/CSPD:GOT0  6450 

6420  FOR  1=1  TO  NLT+NBT+NCT: IF  ZAVE ( I) =0  THEN  6440  ELSE  D=LTF (3, I ) >LTF ( 4 , I ) +DLAD 

IS*60/BSPD(I) 

6430  IF  d:dt  then  DT=D 

6440  NEXT 

6450  L2CLK (W,2) =HaUR+DT:L2CLK(W, 3)=5:G0T0  6470 

6460  L2CLK ( W , 2 ) =LATE 

6470  L2CLK(W,0)=2:GaSUB  4860: RETURN 

6430  LN=SNL(W,2) 

6490  SNS (LN, 7) =2: PASH=PASH+SNS (LN, 2) : EASH=EASH+SNS (LN. 5) : SFASH ' =SFASH ' +SN3 (LN, 0) 

:PFI=3FASHI /TWUV 

6492  IF  3NS(LN, 3) <=NHT+NLT  THEN  ZIGNAL=1  ELSE  ZAVE (SNS (LN, 3) -NHT) = 1 

6500  IF  3NS(LN,3)  NHT+NLT+NBT  THEN  ZIG=1 

6510  IF  LN=riS  THEN  6530 

6520  LN=LN+1:IF  SNS(LN,1)=W  THEN  6490 

6530  PRINT"PASH  Tot al :  " ; PASH: PR  INT  " t i me:  " ; HOUR: DT=0 

6540  PRINT"FIREPWR  ASHORE" ; SFASH ', FF ' 

6544  PRINT  tt2.  USING  "»##«#»♦.##";  HOUR;  PASH;  PF  ' 

6550  IF  ZIGNAL=1  THEN  66  1':) 

6560  IF  ZIG=1  THEN  I=NLT+MBT  +  NCT:  DT=LTF  (3.  I  ) +LTF  (  4,  I  ) -i-ASAD  I  S*60/BSPD  (  I)  ■t-CL2DIS*6 

0/CSPD:GOTO  6600 

6570  FDR  1=1  TO  NLT+NBT+NCT 

6572  IF  ZAVE ( I) =0  THEN  6590  ELSE  D=LTF ( 3,  I ) +LTF ( 4 .  I) +DLAD IS K60/BSPD (  I  ) 

6530  IF  D:DT  THEN  DT=D 

6590  NEXT 

6600  L3CLK(l'J,2)=H0UR  +  DT:L3CLK  (W,  3)  =5:G0T0  6620 

6610  L3CLK (W,2) =LATE 

6620  L3CLK (W,0) =2:G0SUB  4920: RETURN 

6629  " 

6630  IF  CM  THEN  6810 

6640  FOR  TB=1  TO  NLT+NBT+NCT: IF  LICLK (W, TB+6 ) =0  THEN  6680 

6650  NB=L1CLK (W, TB+6) : IF  H ' TRN3 1  THEN  6670 

6660  NB=.31'NB 

6670  AP (TB+NHT) =AP (TB+NHT) +NB 

6630  NEXT : L 1 CLK ( W , 2 ) =LATE 

6682  IF  NCT=0  THEN  PRINT 

6700  IF  W=L3WAVE  THEN  GOSUB  4800: RETURN  ELSE  GOTO  6720 

6710  IF  33L(U,1)  NHT+NLT+NBT  THEN  6740 
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6720  W=W+l:IF  WL3WAVE  THEN  6300 

67~0  IF  L1CLK(W,0>=0  THEN  F3L=3SL (W, 2 ) : GOTO  6710  ELSE  6720 

6740  FOR  1  =  1  TO  NLT+NBT  +  NCT:  P  (  I -hNHT)  =AF  (  I -t-NHT  )  :  NEXT 

6730  IF  3S3(L3,1)'-W  THEN  6790 

6760  I=3S3 CL3. 3) -NHT: IF  P ( I +NHT) ~ 333 ( L3, 4 ) THEN  6780 

6770  RETURN 

6730  PC I+NHT)=P(I+NHT) -SSS(LS. 4)  :  IF  LS  =  TS  THEN  6770  ELSE  L3  =  L3+1:G0T0  6730 

6790  L1CLK(W,  1 )=W:L1CLK(W, 2) =H0UR:L1CLK  (W,  3) =1 : GOSUB  4S00: FSL=LS : RETURN 

6300  FSL=HI: GOSUB  4300: RETURN 

6310  IF  C::2  THEN  6960 

6320  FOR  TB=1  TO  NLT+NBT-t-NCT :  IF  L2CLK  ( W,  TB  +  6 )  =0  THEN  6340 

6330  AF (TB+NHT) =AP (TB+NHT) +L2CLK (W, TB+6) 

6340  NEXT:L2CLK (W, 2)=LATE 

6350  IF  LC=C3  THEN  FCL=HI 

6860  IF  W=LCWAVE  THEN  GOSUB  4360: RETURN 

6870  LC=FCL:H=SCS (LC, 1) : IF  W=0  THEN  6950  ELSE  IF  SCL (W, 1) ; NHT+NLT+NBT  THEN  6390 

6330  W=W+1:FCL=SCL (W,2) :GOTO  6370 

6390  FOR  1=1  TO  NLT+NBT+NCT : P ( I +NHT) =AP ( I +NHT) : NEXT 

6900  IF  SCSCLC,  1  )-^':  W  THEN  6940 

6910  I=SCS (LC, 3) -NHT: IF  P ( I+NHT ) : =SCS (LC, 4 ) THEN  6930 

6920  RETURN 

6930  P(I+NHT)=P(I+NHT)-SC3(LC,  4)  :  IF  LC=C3  THEN  6940  ELSE  LC=LC-^1  :  GOTO  6900 

6940  L2CLK (W,  1) =W:L2CLK ( W, 2) =HOUR: L2CLK ( W, 3)  =  1 : GOSUB  4860: FCL  =  LC: RETURN 

6950  FCL=HI: GOSUB  4860: RETURN 

6960  FOR  TB=1  TO  NLT-t-NBT  +  NCT 

6962  IF  L3CLK (W, TB+6)  :  :0  THEN  AP (TB+NHT) =AP (TB+NHT) +L3CLK (W, TS+6 ) 

6970  NEXT:L3CLK(W, 2)=LATE 

6980  IF  LN=MS  THEN  FML=HI 

6990  IF  W=LNWAVE  THEN  RETURN  ELSE  LN=FML : W=SNS (LN, 1 ) 

7000  IF  W=0  THEN  7070  ELSE  IF  SNL (W, 1 )' NHT+NLT+NBT  THEN  7020 

7010  W=W+1:FML=3NL(W.2) :GOTO  7000 

7020  FOR  1=1  TO  NLT+NBT+NCT : P ( I +NHT) =AF ( I +NHT ) : NEXT 

7030  IF  SNSCLN,  1 )  ■  : W  THEN  7060 

7040  I=SNS (LN, 3) -NHT: IF  P ( I+NHT)  SNS (LN, 4) THEN  RETURN 

7050  P(  I+NHT)  =P(  I+NHT) -SNS  (LN,  4)  :  IF  LN=MS  THEN  706i:i  ELSE  LN=LN+1:G0T0  7030 

7060  ■L3CLK(W,  1  )  =W:  L3CLK  ( W,  2)  =HOUR:  L3CLK  ( W,  3)  =  1  :  GOSUB  4920:  FriL=LN:  RETURN 

7070  FML=HI: GOSUB  4920: RETURN 

7079  • 

7080  WSET=0:J=1 

7090  CVAL=0:FOR  1=1  TO  HSWAVE:IF  H1CLK(I,3)M  THEN  7120 

7100  HICLK (I, 3) =1 : HICLK ( I , 2) =HOUR+J: IF  J=l  THEN  K=I 

7110  J=J+5:CVAL=1 

7120  NEXT:  IF  K:H5WAVE  OR  CVAL  =  i:i  THEN  7170 

7130  IF  MCLOCK( 1, 3)=1  OR  NCLOCK ( 1 , 3) =6  THEN  7160 

7140  IF  H1CLP::(K,2)  ::MCL0CI;  (  1  ,  2)  THEN  7170 

7150  HWAVE=MCLOCK (1,1) : HICLK (HWAVE, 2) =MCLOCK (1.2) 

7152  "FRINT"Sched  Wave" : HWAVE; "  Ti me" : HI CLK  (HWAVE . 2) : "  Code" : H ICLK (HWAVE. 3) 

7160  GOSUB  3400 

7170  WSET  =  (:i:  IF  FCH=HI  THEN  7230 

7130  IF  CVAL=1  AND  OCHCK  =  i.")  THEN  RETURN 

7190  IF  0CHCK=2  AND  SSET=0  THEN  7230 

7200  CVAL=0:FOR  1  =  1  TO  HCWAVE:IF  H2CLK(I,3)::1  THEN  7230 

7210  H2CLK( I , 3) =1 :H2CLK( 1,2) =HOUR+J: IF  J=l  THEN  K=I 

7220  J=J+5:CVAL=1 

7230  NEXT: IF  K'HCWAVE  OR  CVAL=0  THEN  7230 

7240  IF  MCL0CK'(2,  3)  =1  THEN  7270 

7250  IF  H2CLK(K,2)  riCL0CK(2.2)THEN  7230 

7260  HWAVE=MCL0CK (2. 1) : H2CLK (HWAVE , 2) =MCLOCK ( 2 . 2) 

7262  "PRINT"an-C3l 1  Wave" ; HWAVE : "  Ti me" : H2CLK (HWAVE , 2) ; "  Code ": H2CLK (HWAVE. 3) 

7270  GOSUB  3430 
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7230  l'JSET=0:  IF  FMH  =  HI  OR  HNWAVE=0  THEN  RETURN 
7290  CVAL=0:FQR  1=1  TO  HNWAVE:IF  HZCLK ( I . Z) :  i     THEN  7320 
7300  H3CLK ( I , 3) = 1 : H3CLK ( I , 2) =HaUR+J : IF  J= 1  THEN  K= I 
7310  J=J+5:CVAL=1 

7320  NEXT: IF  K'HNWAVE  OR  CVAL=0  THEN  RETURN 
7330  IF  MCLQCf  (3, 3) =1  THEN  7360 
7340  IF  H3CLK  (K,2)  .-MCLOCK  (3,2)  THEN  RETURN 
73S0  HWAVE=MCLOCK (3. 1 ) : H3CLK (HWAVE, 2) =MCLOCK (3, 2) 
73A0  GOSUB  3550: RETURN 
7370  MC=SCH(W,2) 
7330  W=SCA (MC.  1  ) 

7390  FDR  1=1  TO  NHT: NCAR ( I ) =H2CLK (W, I +6) : FOR  J=l  TO  3:FaR  K=l  TO  NLZ 
7392  DLABAT ( I , J , K) =0: NEXT: NEXT : NEXT 
7400  FOR  K=l  TO  NLZ : ZONE (K) =0: NEXT 
7410  IF  SCA(MC,1)<>W  THEN  7430  ELSE  I=SCA(MC,3) 

7420  LDT=3CA(nC,5) :DEST=SCA(MC,6) : IF  2N ( DEST) " HOUR  THEN  H2CLK ( W, 2) =ZN ( DE3T) : H2CL 
K(W, 3)=3:G0SUB  3430:RETURN  ELSE  DLABAT ( I  ,  LDT, DEST) =DLABAT ( I , LDT, DE3T) +SCA (hC, 4)  : 
ZONE(DEST)  =1:  IF  MC=CA  THEN  7430  ELSE  MC=riC-t-l  :  GOTO  7410 
7430  FOR  1  =  1  TO  NHTrIF  NCAR ( I  X : 0  THEN  L=I 
7440  NEXT 

7430  FOR  K=l  TO  NLZ  :  DTIME  (K)  =<).•  NEXT 
7460  FOR  K=l  TO  NLZ: FOR  J=l  TO  3: FOR  1=1  TO  NHT 

7470  IF  DLABATC I , J,K><=0  THEN  7480  ELSE  DLABAT ( I , J , K) =DLABAT ( I , J . K) -HGF (I ) : DT IME 
(K)  =DTIME(K)  H-HTF(  1,  J)  +HTF(2,  J)  +HTF(8,  J)  :  GOTO  7470 
74S0  NEXT: NEXT: NEXT 
7490  ZTIME=0:FOR  K=l  TO  NLZ 

7500  IF  DTIME(K)  :  ZTIME  THEN  ZT  IME  =  DTlriE  (K) 

7510  NEXT:H2CLK(W,2)=H0UR-i-ZTIME:H2CLK  (W,  3)=4:F0R  K  =  l  TO    NLZ 
7512  IF  Z0NE(K)=1  THEN  ZN (K) =H2CLK ( W, 2) 
7520  NEXT 

7530  "PRINT  "Nr  o-f  Hel  os  "  ;  H2CLK  (W,  L*6) 
7540  GOSUB  3430: RETURN 
7550  RETURN 
7560  riN=3NH(W,2) 
7570  W=SNA(riN,  1  ) 

7530  FOR  1=1  TO  NHT: NCAR ( I ) =H3CLK ( W, I +6 ) : FOR  J=l  TO  3:F0R  K=l  TO  NLZ 
7532  DLABATC I , J , K) =0: NEXT : NEXT: NEXT 
7590  FOR  K=l  TO  NLZ : ZONE (K ) =0 : NEXT 
7600  IF  SNA(MN, 1)< : W  THEN  7620  ELSE  I=SNA(MN,3) 

7610  LDT=3NA(riN,  5!  :  DEST=3NA(MN,  6)  :  IF  ZNCDEST)  HOUR  THEN  H3CLK  (W,  2)  =ZN  (DE3T)  :  H3CL 
K  (W,  3)  =3:  GOSUB  3550:  RETURN  ELSE  DLABAT  (I  ,  LDT,  DEST )  =DLABAT  (  I  ,  LDT,  DEST) -t-SNA  (MN,  4  >  : 
Z0NE':DEST)=1  :  IF  P1N=NA  THEN  7620  ELSE  MN=MN+1  :  GOTO  76':'0 
7620  FOR  1  =  1  TO  NHT:  IF  NCAR (I )  :  ; O  THEN  L=I 
7630  NEXT 

7640  FOR  K=l  TO  NLZ : DTIME (K) =0: NEXT 
7650  FOR  K=l  TO  NLZ: FOR  J=l  TO  3: FOR  1=1  TO  NHT 

7660  IF  DLABAT  (  I,  J,  K  )<=<:)  THEN  7670  ELSE  DLABAT  (  I  ,  J  ,  K  )  =DLABAT  (  I  ,  J  ,  K  ) -HGF  (  I )  :  DT  IME 
(K)=DTiriE(K)  +HTF(  1,  J)  +HTF(2,  J)  +HTF(a,  J)  :  GOTO  7660 
7670  NEXT: NEXT: NEXT 
7630  ZTIME=0:FOR  K=l  TO  NLZ 

7690  IF  DTIME (K)  JZTIME  THEN  ZT IME  =  DT IME  !K) 

7700  NEXT:H3CLK  (W,  2)=H0UR-i-ZTIME:H3CLK(W,  3)  =4:F0R  K  =  1  TO  NLZ 
7702  IF  Z0NE(K)=1  THEN  ZN (K) =H3CLK (W. 2) 
7710  NEXT 

7720  "PRINT  "Nr  o-f  Hel  as"  :  H3CLK  (W,  L+6  ) 
7730  GOSUB  3550; RETURN 
7740  RETURN 

7749  ■ 

7750  PRINT"3T0CH":BEG0CH=0: IF  0CHCK=2  THEN  RETURN 
7"-60  IF  0CHCH=':'  THEN  FCH=l:G0T0  77''0 
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7770  FOR  1=1  TO  HCWAVE:IF  H2CLK(I,3)=A  THEM  HCCLK (I , ' ) = 1 : HnCLr < I . 1 ) = I 

7730  NEXT: GOTO  7310 

7790    0C3ET=0:F0R     1  =  1     TO    HCWAVE:IF    H2CLK(I.0)=0    THEN    H2CLK   (  I  .  1  )  =  I  :  H2CLI-    (  I  ,  2)  =HOLD 

:H2CLK( I, 3)=1 

7300    NEXT 

7810  GOSUB  7080: RETURN 

7319  • 

7320  PRINT"3TNSH" : FMH= 1 : BEGNSH=0: NSSET=0 

7330  FOR  1=1  TO  HNWAVE: H3CLK ( I , 1 ) = I : IF  H3CLK(I,0)=0  THEN  H3CLK ( I , 2) =HOLD: H3CLK ( I 

,3)=1 

7340  NEXT 

7350  GOSUB  7080: RETURN 

7359  • 

7360  PRINT"3TSH": BEG3H=0 
7370  FOR  1=1  TO  HSWAVE 

7372  IF  H1CLK(I.0)=0  THEN  HICLK ( 1 ,  1) =1 :  HICLK ( I , 2) =HOLD : H ICLK ( I , 3) = 1 : PR INT"H1CLK ( 

1,1) ";H1CLK(I . 1) , "H1CLK(I,3) ";H1CLK(I,3) 

7330  NEXT 

7890  GOSUB  7080: RETURN 

7399  ' 

7900  PRINT"HALT5H":SSET=1 

7910  FOR  1=1  TO  HSWAVE 

7912  IF  HlCLKt I ,0)=0  THEN  H ICLK ( I , 1 ) = I : H ICLK ( I , 2) =HOLD: HICLK ( I , 3) =6: PR INT"H1CLK ( 

I  ,  1  )  "  ;  H  1 CLK  (  I  ,  1  )  ,  ••  H 1 CLK  (  I  ,  3 )  "  ;  H 1  CLK  (1,3) 

7920  NEXT: RETURN 

7929  • 

7930  PRINT"BE3TART":GSET=0: J=l : IF  FSL=HI  THEN  3020 

7940  CVAL=0:FOR  1=1  TO  LSWAVE:IF  LICLK ( I , 3)  : ' 1  THEN  7970 

7950  L1CLK(I,2)=H0UR+J: IF  J=l  THEN  K=I 

7960  J=J+5:CVAL=1 

7970  NEXT: IF  K;L3WAVE  OR  CVAL=0  THEN  3020 

7930  IF  MCLOCK (4,3>=1  OR  MCLOCK ( 4, 3) =6  THEN  3010 

7990  IF  L1CLK(K,2) >MCL0CK(4, 2)THEN  3020 

3000  LWAVE  =  riCL0CK(4.  1)  :L1CLK  (LWAVE,  2)  =nCLOCK  (4,2) 

3002  PRINT"Sched  Wave" ; LWAVE: "  Ti me" : L ICLK (LWAVE, 2) ; "  Code" ; L ICLK  (LWAVE, 3 ) 

3010  GOSUB  430i:) 

3020  GSET=i:):  IF  FCL=HI  THEN  3120 

3030  IF  0CLCK=2  AND  LL3ET=0  THEN  3120 

3040  CVAL=0:FOR  1=1  TO  LCWAVE:IF  L2CLK(I,3)':i  THEN  3070 

3050  L2CLt'(  I,  2)=H0UR+J:  IF  J=l  THEN  K=I 

3060  J=J+5:CVAL=1 

3070  NEXT:  IF  k;;:LCWAVE  OR  CVAL  =  ':i  THEN  3120 

3030  IF  MCLOCK (5, 3)= 1  THEN  3110 

3090  IF  L2CLK(K,2)  MCLOCK (5, 2 ) THEN  3120 

3100  LWAVE=MCL0CK(5, 1) : L2CLK (LWAVE, 2) =MCL0CK(5,2) 

3102  FRINT"an-Cal 1  Wave" : LWAVE :  "  Ti me" ; L2CLK (LWAVE, 2)  :  "  Code" ; L2CLt' (LWAVE , 3) 

3110  GOSUB  4360 

3120  GSET=0:  IF  FML  =  HI  OR  LNWAVE  =  i:>  THEN  RETURN 

3130  CVAL=0!FOR  1  =  1  TO  LNWAVE:IF  L3CLK(I,3>M  THEN  3160 

9140  L3CLK(I,2) =HOUR+J: IF  J=l  THEN  K=I 

3150  J=J+5:CVAL=1 

3160  NEXT: IF  K;LNWAVE  OR  CVAL=0  THEN  RETURN 

3170  IF  MCLOCK (6, 3) =1  THEN  3200 

3130  IF  L3CLK (K,2) >MCL0CK(6,2) THEN  RETURN 

8190  LWAVE  =  MCLOCK (6.  1 )  : L3CLK:  (LWAVE, 2) =MCL0CK(6,2) 

3200  GOSUB  4920: RETURN 

3210  FRIMT"STOCL": 9EGaCL=0: IF  0CLCK=2  THEN  RETURN 

3220  IF  OCLCK=0  THEN  FCL=1:G0T0  3250 

3230  FOR  1  =  1  TO  LCWAVE:IF  L2CLK(I.3)=6  THEN  L2CLK ( I , 3) = 1 : L2CLK ( I ,  1  ) = T 

3240  NEXT: GOTO  8270 
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3250  LC3ET  =  i:i:FaR  1  =  1  TO  LCWAVE:IF  LrCLK(I,0)=0  THErj  L2CLK  (  I  ,  1  !  =  I  :  L2CLK  (  I  ,  2)  =HOLD 

:L2CLK(I,3)=1 

8260  NEXT 

8270  G03UB  7930: RETURN 

8279  ■ 

8280  PRINfSTNSL"  :  FML=1  :  BEGMSL  =  0:  NLSET=i:i 

8290  FOR  1=1  TO  LMWAVE: L3CLK ( I , 1 ) =1 : IF  L3CLK(I,0)=0  THEN  L3CLK ( I , 2) =HOLD: L3CLK ( I 

,3)=1 

8300  NEXT 

8310  GOSUB  7930: RETURN 

3319  • 

8320  PR  I NT " 3TSL " : BEG3L=0 

3330  FOR  1=1  TO  LSWAVE 

8332  IF  L1CLK(I,0)=0  THEN  LICLK ( 1 , 1) = I  :  LICLK ( I , 2) =HOLD: LICLK ( I , 3) = 1 : FRINT"L1CLK ( 

1,1)  '•;L1CLK(I,  1)  ,  "LICLK  (I,  3)  "  ;  LICLK  ( 1 ,  3) 

8340  NEXT 

3350  G03UB  7930: RETURN 

3359  ■ 

3360  PRINT"HALTSL":LLSET=1 
3370  FOR  1=1  TO  LSWAVE 

IF  L1CLK(I,0)=0  THEN  LICLK  (1 ,  1 )  =  I : LICLK ( I , 2) =HOLD: LICLK ( I , 3) =6: PR INT"L1CLK ( 
'; LICLK (1,1), "LICLK (I, 3) "; LICLK (I, 3) 


:1  TO  NHT:WHOST{J,K) =HOST (J,K) :NEXT:NEXT 


8372 

1,1)' 

8380  NEXT: RETURN 

3339  ' 

8390  FOR  J=l  TO  3: FOR  K= 

3400  IF  CCl'-l  THEN  3430 

8410  IF  H1CLK(WW1,2)=H0LD  THEN  RETURN 

3420  HACLK=H1CLK  (WWl  ,  2)  :  NCAR  (WTYP)  =H1CLK  (WWl  ,  WTYP-t-6)  :  GOSUB  3710 

8430  IF  NS=0  THEN  DLTIME=100 

3440  HBCLK=HOUR  +  DLTiriE:  IF  HACLK<=HBCLK  THEN  WDS=1:G0T0  3620 

3450  FOR  J=l  TO  3: FOR  K=l  TO  NHT 

8452  H0ST(J,K)=WH03T(J,K)  : NEXT: NEXT: HICLK (WW  1 ,2)=HBCLK 

8460  PRINT  HACLK:HBCLK:  IF  MCLOCK ( 1 .  1  ) =WW 1  THEN  MCLOCK ( 1 , 2) =HBCLK 

8470  GOTO  8620 

3480  IF  CCi;2  THEN  9560 

3490  IF  H2CLK (WWl ,2) =HOLD  THEN  RETURN 

8500  HACLK  =  H2CLK  (WWl  ,  2)  :  NCAR  (WTYP)  =H2CLK  (WWl  ,  WT^rF+6)  :  GOSUB  3710 

3510  IF  NS=0  THEN  DLTinE=100 

3520  HBCLK=HOUR  +  DLTIME:  IF  HACLK  ::=HBCLK  THEN  WDS=  1  :  GOTO  3620 

8530  FOR  J=l  TO  3: FOR  K= 1  TO  NHT 

8532  H03Tt:j,K)=WH0ST  (J,K)  :  NEXT:  NEXT:  H2CLK  ( WWl  .  2)  =HBCLK 

3540  IF  MCLDCK(2, 1)=WW1  THEN  MCLOCK (2, 2) =HBCLK 

8550  GOTO  3620 

3560  IF  H3CLK (WWl , 2) =HaLD  THEN  RETURN 

3570  HACLK=H3CLK (WWl, 2) : NCAR (WTYP) =H3CLK (WWl . WTYP+6) : GOSUB  3710 

8530  IF  NS=<:i  THEN  DLTIME=100 

3590  HBCLK=HOUR+DLTIME: IF  HACLK< =HBCLK  THEN  WDS=1:G0T0  3620 

3600  FOR  J=l  TO  3: FOR  K= 1  TO  NHT 

3602  HOST (J, K) =WHOST ( J,K) :NEXT: NEXT:H3CLK (WWl , 2) =HBCLK 

3610  IF  MCLOCK (3, 1 ) =WW1  THEN  MCLOCK ( 3, 2 ) =HBCLK 

3620  IF  WDS=0  THEN  DS=0: CC=CC 1 : WW=WW1  ELSE  CC=0: WW=0: DS= 1 : WSET= 1 

8630  CC  1  =0 :  WW  1  =0 :  WNS=0 :  WTYP  =  iT :  WLDT  =  0 :  RETURN 

8639  ' 

8640  IF  CC=0  THEN  RETURN  ELSE  CC1=0:WW1=0 
8650  IF  CC" 1  THEN  8670 
8660  IF  HICLK (WW, 3)  :>2  OR  HICLK (WW,  0) 


IF  HICLK (WW,: 
3670  IF  CC;:2  THEN  3690 
3680  IF  H2CLK(WW, 3)< '2 
3690  IF  H3CLK  (WW,  3) -:  :  2 
3700  CC 1 =CC : WWl =WW: RETURN 


OR  H2CLK(WW,0) 
OR  H3CLK ( WW , 0 ) 


1  THEN  RETURN  ELSE  8700 

1  THEN  RETURN  ELSE  3700 
1  THEN  RETURN 
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LIST  3701-8860 

B709  ' 

3710  WPAC=HEST (WLDT,WTYP) -WHOST (WLDT.WTYP) 

3712  IF  WNS'WPAC  THEN  3730 

3720  FOR  J=l  TO  3:F0R  K=l  TO  NHT : WHOST (J , K ) =HEST (J , K) : NEXT: NEXT: GOTO  3770 

3730  RMFRC ! =WNS/WPAC 

3740  FOR  J=l  TO  3: FOR  K= 1  TO  NHT 

3742  WH03T(J,K)=WH0ST(J,K)+RMFRC' t (HE3T (J,K) -WHOST (J,  K)  ) 

3750  IF  WHOST (J, K) ;HEST(J,K) THEN  WHOST ( J , K ) =HEST ( J , K) 

3760  NEXT: NEXT 

3770  NS=WHOST (WLDT, WTYP) 

3730  IF  NS;NCAR (WTYP) THEN  3300 

3790  FOR  J=l  TO  3:FaR  K=l  TO  NHT: WHOST (J , K) =0: NEXT: NEXT: WDS=0: GOTO  8810 

3800  RMFRC  =(NS-NCAR  (WTYP)  ) /NS:  FOR  J^^l  TO  3:F0R  K=l  TO  NHT 

3302  WHQST(J,K)=RMFRC' KWHOST (J,K) : NEXT : NEXT: WDS= 1 

3310  DLTIME=0 

3820  IF  NS=<:)  THEN  RETURN 

3830  IF  NCAR (WTYP)  '=0  THEN  3860 

3340  DLTIME=DLTinE+HTF(5,WLDT) : NCAR (WTYP) =NCAR(WTYP) -NS:GOTO  3330 

3350  PRINT  WDS;CC1; WW  1 ;CC; WW; WSET;WNS: RETURN 

8360  GOTO  3850 

Ok 


199 


IIST   OF    BEFERENCES 


I.  Brewer,  G.D.  ard  Shu  hick,  M.,  The  War  Garne,  Harvard 
University   Press,    1979.  " 

2-  Sziiczak,         W.S.,        Transferability    of      Comb  at      Hodels: 

Linitations   Imposed      ty   Documentaion      Practices,       'A.S. 
TEesas,    TTaval   IcsTgra'auaTe   ■ScEooI,~197¥.  ^ 

3.  Shannon,    R.E.,    S^ystems   Simulation    the    Art   i_nd    Science, 

pp. 21-32,    PrentIce-"HaIl,Inc.7    TT75.  " 

4-  Emshoff,       J.  R.       and   Sisson,       R.  L.  ,         Desiqi     an_d    Use    of 

Computer    Simulation   Models,         pp.  50-5^7      iKe    MacmlTIlan 
Company,    JTTU. 

5.  Department      of      Defense        Publication,         D).ctrine      For 

Amphibious   Operations ,    August,    1967. 

6-  US      Marine   Corps      Publucation,         Doctrine   ?;.or      Landing 

Forces,    August    1971. 

7.  US   Marine    Corps  FMFM    5-3,    Assault    Su££ort,    3    May    1979. 

8-  Taylor,      J-G.,      Manchester    ilodels      of   Warfi  re,      p. 6 31, 

ORSA,    1983- 

9.  U.S.    Marine   Corps   Publication,    Amphibious   Lift    Factors 

Study    (1983   and    1994)  -    Final   Reporl,    pp.      ^1-30,    Flans 
aF3    Evalualions  "Branch,    "H^HC,    January   1984. 

10-  Weiss,  E.H.,  "Usability:  Toward  a  Science  of  User 
Documentation,"  Computerworld,  v.  XVII-  No.  2,  pp. 6- 16, 
28   February   1^837 — 

II.  National  Bureau  of  Standards  Special  Publication 
5  0  0-5  9,  Computer  Model  Documentation:  A  Ri.Zi§w  ^nd  an 
Approach, ~5y   H-I.    ^ss,    7e^ruary  1"979. 

12-  Fried,  L,  ,  "ffanual  Must  Give  User,  Analyst  Views," 
Computerworld,  v. XVI,  No, 35,  pp.39-U0,  30  August  1982 
an^   vTT7'T7~IIo.36,    pp.47-U8,    6    September    1892. 

13.  National  Bureau  of  Standards  Special  Publication 
500-73,  Computer  Model  Documentation  Guiie,  Federal 
Computer  performance  Evaluafion  anH  ^imuTarTon  Center, 
January    1981. 


200 


BIBLIOGBAPHY 


Earton^  E.F.,  Simulation      acd        Gaminq,  a        Primer, 

Frentice-Hall,lnc.  ,    1^751  ~ 

Eonder,         S,.         "Systems   Analysis,        A      Purely     C ntellectual 
Activity,"    t^ilitary    |eview    51,No.2,    1971. 

Clark,        F.,        "Software      Documentation      a      Major       Probleir," 
Com^uterworld   ,    v. XVII,    No.  9,    28    February    1983. 

Keen,       P.G.W.,         Decision   S upport      Systems -An    Or;  aniza  tional 
£§£S£€ctive,    Addison-Ivesley ,     i"97H. 

DS    Marine   Corps    Publication    IP    3-10,    The   Landing.   Plan,      June 
198  3. 


201 


INITIAL  DISTEIBOTION  LIST 


No.  Copies 


1.  Defense  Technical   Information   Center  2 
Cameron  Station 

Alexandria,    Virginia   2  2314 

2.  litrary.    Code    0  142  2 
Naval    Postgraduate   School 

Monterey,    Calif cxEia   9  3943 

3.  Adjunct  Professor   James   J.    Wayman,    Code    53  4 
Eepartment    of    Mathematics 

Naval    Postgraduate    School 
Monterey,    Califcrnia  93943 

4.  Analysis   Support   Branch  15 

(Attn:    Major   S.    M.    Eitacco) 
revelopment  Center 

Marine   Corps   Development    and   Education    Corami  nd 
Cuantico,    virgiria    22134 


202 


1   3  ^  3  7 


^ 


Thesis 

R5T86 

c.l 


1 

16 


OHi 


IQllk 


Ritacco 

An  amphibious   ship- 
to-shore   simiilation 
for  use  on  an  IBM  PC. 

MAY   86 


9\ 


5  1  ft  Ul" 

6 


^?8" 


O       ^q 

OQ  CO  o  K 

'  *^  CO  CM  CO 

'  f^  m  tn  S; 


210774 


"^  CTi  H  CO 

ro  n  Lo  S; 


'Thesis 

.R5T86 

c.l 


Ritacco 

An  amphibious   ship- 
to-  shore   simulation 
for  use  on  an   IBM  PC. 


rn  CLj  ^ 


